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PRIMOS OPERATING SYSTEM 



The chifcr features of the Primos operating system we: 

1. INTERACTIVE - up to 128 user processes 

(14+ interrupt processes) 

2. 32 MB maximum virtual address space per user(^^^^ 

3. Users share the resources of the system > 



High speed memory 

Peripherals and controllers 
System Console / 
Real Time Clock ^ 



Disk Drive(s) /I |hkl ^CWw^H 

«u:(.)/icsi(.) ' ££" ZTo^ l^ CfifiZx, 

SMLC(5)/MDLC(s) *1* ^^ 

Ring Node Controller (PNCK LvaJ 1 
Magnetic Tape Drivels) ^ 
Line Printer(s) s/ 
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rFMTRAI PROCFSSOR UNIT 



CPU 
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SEMMCEB 
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REGISTER FILE /iv - 3a ^ t*fS& 



MICROCODE SCRATCH 



DMA 



CURRENT REGISTER 
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13 
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16 
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17 
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24 


KEYS I 


1 HODALS 


25 


OWNER 


26 


FCODE (11) 
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THE USER REGISTER SE" 



A Accumulator Register- 

B Accumulator Extension (A + B = L) 

EH/EL Accumulator Extension for long integers (64 bit) 

S Stack Register (R S Modes) 

Y Alternate Index Register (V. Mode only) 

X Index Register (R, S, V Modes) 

GRO-0R7 General Registers 0-7 (I Mode only) 

FARO Field Address Register 

FLRO Field Length Register 

FAR1 Field Address Register 1 (for block moves 

FLR1 Field Length Register 1 char. /dec, data) 

FAC Floating Point Accumulator 

PB Procedure Base Register 

SB Stack Base Register 

LB Link Base Register 

XB Auxiliary Base Register 

OWNER Address of User Register Set Owner's PCB 

FCODE Fault Code 

FADDR Fault Address 
CPU TIMER overflow of two's complement value ends timeslice 

User programs may access the Register-file using LDLR and STLR (64V). 
Only locations '0 - '17 are accessible. 

Any attempt to access location '14 (PB) will give undefined results. 
The first eight locations are interpreted for V-mode (default). 
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PROCEDURE/LINK/STACK ARCHITECTURE 



PROCEDURE AREA 

- 1 per system if scared 

- contains pure code and literals 

- pointed to by Procedure Base Register (PB) 

LINKAGE AREA 

- 1 per user 

- contains local yanabies and pointers 

- pointed to by Linkage Base Register (LB) 

STACK FRAME 

- 1 per invocation 

- contains caller's saved state/ argument pointers/ 

and dynamic work space 

- pointed to by Stack Base Register (SB) 
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KEYS 



bit # 

l 

2 

3 

4-6 



7 

8 

9 

10 
11 

2-13 
14 
15 
16 



purpose 
S R Mode* 



Arithmetic Error Cond. 
Double Precision Bit 
reserved 



Mode bits 



000 
001 
Oil 
010 
110 
100 

reserved 
reserved 

Bits 9-16 are bits 9-16 
of address 6 



163 mode 

32S 
32R 
64R 
64V 
321 



6n) 



V I Hodes 

C Bit f&wLj 

reserved 

Link Bit 

Mode Bits [u^ WiH- 

i^dx^<^ Ida 



Floating Point Exception 

Integer Exception 

LT (less than) bit |a^ 

EG (equal) bit J 6ik 
DEX (decimal exception) 
reserved 



/ft/tt^S 



C- C, 



In CHECK bit (850 only) '/«**/> 
I bit - In Dispatcher ^ r T 
S bit - Save Done 
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MODALS 



bit # 


PURPOSE (V I modes only) 


1 


Interrupts Enables 


2 


Vectored Interrupt Mode 


3 


Disable Prefetch Overlap (P750) 


4 


Disable Indirect Overlap (P75Q) 


5 - 8 


reserved - Must be zero 


9 -11 


Current Register Set 


12 


napped I/O ilode "1 


13 


Process-exchange Mode / 


14 


Segmentation ilode \ 


15 - 16 


Machine Check Mode ' 



\j<MM c*m ^d 



00 = Report no errors 

01 = Report ECCU errors only 

(Error Check ing and Correction Uncorrectable) 

10 = Report all unrecoverable errors 
(only ECCC errors are unrecorded) 

11 = Report and record all errors 
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INSTRUCTION PREFFTCH UNIT ">&> /g &> 
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INSTRUCTION 
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UNIT 



MAIN MEMORY 



If 



CACHE MEMORY 



<r 
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INSTRUCTION 
EXECUTION 
UNIT 
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DMx Operation 



Dlix is a method whereby an I/O data/memory transfer may occur without 
program intervention. To perform such operations a temporary 
diversion in the sequence of microcode from CPU instruction to DHx 
transfer routines occurs. This is called cycle stealing or a TRAP. 
At the end of the DMx/memory transfer; the CPU instruction microcode 
continues as though nothing had happened. The actual trap diversion 
occurs at the end of the micro step in which it was sensed. At the 
same time* information about the next CPU micro step is saved to 
effect a return to the original sequence. 



There are four types of Dflx transfer: DNA, DMC, DHL and DUG. 
Each method has advantages and disadvantages in terms of speed; 
volume and control features and so form a comprehensive range of 
methods. 

r 




j^^VM? 
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irv/rm/WH. $jc 

fcfymv* CPU 
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DMA transfers are controlled by pairs of registers 
(channels) in the CPU register file. There are 32 
such register channels* locations '40 - 77 in the 
register file (32 bit locations). The high 12 bits 
of each location govern the number of words to be 
transfered and the loin 16 bits specify the start 
address of the buffer to be used. 



I/O CONTROLLER 




DIRECT MEMORY ACCESS 'DMAI' 



FOR OMA TRANSFERS THE CONTROLLER 
SUPPLIES THE CPU WITH AN AOORESS OP 
ONE OP THE BSGlSTER FILES SET ASIDE 
FOR OMA. THIS RF CONTAINS THE 
PARAMETERS FOR THE TRANSFER. 

- MAXIMUM AMOUNT OF WORDS THAT 
CAN BE TRANSFERRED IS 4096. 

- MAXIMUM NUMBER OF DMA CHANNELS 
(P4O0I IS 32. 



3^ 



OMA/C AOORESS REG. 




1 -OVC 
O'OMA 



CHANNEL 
AOORESS 



/ wft»r»rf.* »/#••••' f*it*tnM*-i* t r<i u*r * /»•-/'* m«W tfUM* Irr trttm #«• Unmmn* **t»Ml /iWC" 



Of *r* 

Ozm&Jm™^ Before transfers begin* the program must set up the 

%TXt^^-, channsl registers in the CPU. Up to 4096 words per 
hymsftai* channel may be transfered. Successive channels may 
M. Amuck be c y insi j jjy S5 tting channel registers in the CPU 

and the chaining register in the controller 



(not all controllers have this caushilitn) 
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2). DIRECT MEMORY CHANNEL (DMC) 

DMC transfers are controlled by pairs of words (Channels) 
in main memory. The first (even) word controls the first 
and current address of the buffer, and the second word 
controls the last address of the buffer. There is potential 
for transferring 65536 words* but in practice transfers are 
usually very much smaller than this. 



DIRECT MEMORY CHANNEL (DMC)' 



MEMORY 

I 3000'6000 
^Cj 3001 10020 

6000/ DATA 
10020/ DATA 



A A A 



v v; v 



FOR DMC TRANSFERS THE CONTROLLER 
SUPPLIES THE CPU WITH AN AOORESS 
THAT IS ACCESSED IN MEMORY. THIS 
ADDRESS SPECIFIES AT WHICH LOCATION 
THE TRANSFER IS TO TAKE PLACE. 
POSSIBLE ADDRESSES THAT THE 
CONTROLLER CAN SUPPLY ARE ANY 
EVEN NUMBER UP TO 3776. THIS MEANS 
THERE CAN BE UP TO A 

- MAXIMUM OF 1024 DMC CHANNELS 
(THEORETICALJ 

- MAXIMUM AMOUNT OF WOROS THAT 
CAN BE TRANSFERRED IS 
ALMOST 64K (THEORETICAL) 



CPU 



CPU OETECTS DMC 
AND PASSES THE 
AOORESS PORTION 
OF DMC AOORESS 
REG. TO MEMORY. 



n; 



CONTROL 



<^AOORESSj> 



< 



DATA 



I/O CONTROLLER 



OMA/C ADDRESS REG. 
007000 









12 3 4 



CHAIN 
NUMBER 



1-DMC 
0- DMA 



16 



CHANNEL 
AOORESS 



J FIRST LOCATION/TRANSFER AOORESS 
\ SECONO LOCATION/FINAL ADDRESS 



Mi-ampA- *A»h« ,«,«,„*•„•« f,,r a 10411 „W tramfrr fr.,,„h» /»,-«/,„„, MUM. /««.'» 



1024 DMC channels are available in the system- but the use 
of memory for control words makes it slower than DMA. 
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3). DIRECT MEMORY TRANSFERS (DMT) 

DMT transfers are controlled by the device controllers 
themselves. The memory of the start and current location 
of the buffer, and the memory address of the last location 
of the buffer are held in the controller. 

DIRECT MEMORY TRANSFER (DMT) • 



MEMORY 
6000/ DATA 



A A A 



FOR DMT TRANSFERS THE CONTROLLER 
SUPPLIES AN ADDRESS WHICH IS THE 
ACTUAL ADDRESS OF THE DATA TRANSFER. 
THE NUMBER OF WORDS TO BE 
TRANSFERRED VARIES ACCORDING 
TO THE SPECIFIC DESIGN AND 
FUNCTION OF THE CONTROLLERS 
USING DMT. 
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en 
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UJ 

cr 
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CPU 

CPU DETECTS DMT - 
AND PASSES THE 
ADDRESS DIRECTLY 
TO MEMORY. 



<; 



CONTROL 



<^ADDRESS^> 



< 



DATA 



v^ 



I/O CONTROLLER 



DMT ADDRESS REG. 



006000 



* Kxam/ih' shows parameters for a transfer to/ from location 6000. 
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4). DIRECT MEMORY QUEUE (DHQ) 

DUG mode provides a ring-structured memory buffer for the 
reception and transmission of stream I/O. Stream I/O is a 
data transfer in which data is transfered in continuous streams 
of bits* characters or words rather than in discrete records 



This mode allows the AilLQ driver to q.ueue messages using 
queing instructions* without the need for extensive software 
management of character time interrupts on transmit. Therefore 
DHQ mode substantially reduces the system overhead in dealing 
with terminal output. 
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QC3 



100/1000 
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102/ 21 
103/ 200 




A A A 




Ql^jJL WKATr-«A $tl~G 



I f~l o^i ( 

Segment'O Wflb-c. SfrdcA^^P 

Foe DHQ transfers, the controlled * ^^^2 
suplies the CPU with an address /1J 

of a quetie control block (QC3) for 



the line. The QCB is 4 words long. 

The first word is a "read" pointer, 
> Segment'21 5 h ? second a " w "te" pointer, the 
| " r ~ ' c tr f~ ~ tnirc the segnent address and the 

fourth, a mask which specifies the 

size of the Queue Data Block (QDB) . 

The QDB is the area of necory the 

data is taken from. 
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CPU 

CPU DETECTS OMQ 
AND PASSES THE 
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OCS TO MEMORY 
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CONTROL 
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000100 
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Operation 



The control information is held in segment of memory in an area 
known as the Queue Control Block (QCB). 

Each queue is implemented by an array of 2##N words inhere N is greater 
than or equal to 4/ and less than or equal to 16. 

Each QCB is a four word structure: 

TOP POINTER (read) word number of the head of the queue 
BOTTOM POINTER (write) word number of the tail of the queue 

SEGMENT NUMBER or PHYSICAL ADDRESS 

segment number or PPN of above pointers 
MASK 2##N - 1 defines the size of the buffer 



The instructions provided for DMQ and QUEUE manipulation are: 



ATQ 

ABQ or DMQ input 

RTQ or DMQ output 

RBQ 

TSTQ 



add to the top of the queue 

add to the bottom of the queue 

remove from top of the queue 

remove from the bottom of the queue 

test the queue (# of items-}A>ifemptyEQ~}CC) 
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W&**0* 



PRIMQS SOURCES 



FILES 



fa 



RINGO. MAP 

RINQ3. MAP 
RINGO. LOAD 
RING3. LOAD 



SUBDIRECTORIES 

CPLS 



C3 

ES 

FS ' 

INSERT 

KS 

NPXS 

NS 

OBJ 

PSD 

R3S 

RUES 

FINDJBJ 

PRMLD 



IC/ \GL 



Ring SEG map 

Ring 3 SEG map 

Ring SEG load control file 

Ring 3 SEG load control file 



synchronous 



CPL interpreter 

Communications: 

Emulators: d p t x 

File system 

Insert files 

Kernel 

NPX (slave) 

Networks: FAM I, FAN II 

Binaries 

Wired debugger 

Ring 3 and command processor 

Remote job entry 

Utility to use a load control file and merge 

binaries froa two separate irfdsCa*&^ 

Primes preloader 

Program to generate initial page maps 

Usage monitoring utility — P' s 'f tl 



IV 
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PRIHQS BUILD - COMPILE. CPL 

R COMPILE [(object)] 

C-FTN] C-PLP3 [-PMA] 

[-Bin (treename)] [-List (treename)] 

C-AFter (date)] [-BeFore (date)] (date = MM/DD/YY) 

[-No COmoJ [-COilO {treename)] 



The caller may specify a (sourcejree) of an item* sub-dir or file; 
to be compiled. The default is to compile all languages in all dirs. 

The user is also allowed to specify the -BEFORE and -AFTER arguments 
to compile only modules changed during a specified time interval. 

If any of -FTN; -PilA or -PLP is given; then only modules written in 
those languages b^s compiled. If all are omitted; all languages ^r^ 
compiled. 

If -AFTER and/or -BEFORE is given; only those modules which also 
have a date-time-modified within the bounds specified by -AFTER and 
-BEFORE; are compiled. If neither is given; dtm is not checked. 

If -NQ_COHO is given; a separate comoutput file is not produced. 
Otherwise; 7,dir'/,. como is produced. 
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S BUILD - COMPILE. CPL examples 



A file may 5e specified in a number of mays: 

ks)ainit. ftn > ks>ainit > ainit. ftn > ainit 

If a sub-dir is omitted, each one one is searched for the file. 
If the language suffix is omitted a search is done using PMA; FTN; 
and PLP until the file is found. 

NOTE:::: Any unclaimed arguments will be used as compiler options 



1 1 1 



Examples: 

R COMPILE compiles everything; creates compile, como 

R COMPILE -PLP -AF -NCO compiles only PLP modules modified after 

midnight this morning; no como file. 
R COMPILE ks -BF 1-1 compiles all modules in KS modified before 

midnight on Jan. 1 of the current year, 
R COMPILE ks)amit. ftn compiles #>ks}ainit.ftn 
R COMPILE ks>ainit searches ks for ainit. (PMA FTN PLP) 
R COMPILE ainit. ftn searches all sub-dirs, *>ll>ainit. ftn 
R COMPILE ainit compile C#>amit, (PMA FTN PLP) 
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PRIMOS BUILD - LOAD. CPL ' J 



t/WS 



-fl^M dW&'f PfLWiri 



R LOAD Kloadjatajile)] 

[-LIBRARY (libjath) S -LIB (libjath)] 
[-OBJECT <objjath> ! -OBJ (objjath)J 
[-RING <ring> i -R (ring)J 
[-VERSION (version) ! -V (version)] 
[-NO com i -NCQ] 



(loadjatajile) file with seg commands and name of files to load 

(libjath) dir containing binary files of installed (base) Primes 

(objjath) dir containing binary files that are new 

(ring) ring to load (currently or 3) 

(version) char string of this version of Primes (e.g. 18.0.10) 

defaults: load data file= lib path= obj path- ring= version 5 
RINQring.LOAD PRI19.CKX3BJ *>OBJ 19.0 

This CPL procedure accepts a load data file in the following format: 
/# comment line - ignored 

,SEG (command) - direct command to seg> passed as is 
filejame {optional seg numbers for seg> 

Whsn the line is a filejame^ 

filejame.bin is searched for in the object directory; 
if found the object pathname is prepended to filejame 
else the library pathname is prepended to filejame 
(in both cases .BIN is appended to the filename) 
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PRIMPS BUILD - more CPL utilities 

PRIMOS., BUILD, CPL ~" 

R PRIMOS. BUILD <version_nuraber> {-LOAD) 
Compiles and/or load all of PRIMOS. 



HOVSYS. CPL (in PRIRUN) 



^ <p» ^ rw~ 



R MOVSYS •Csourcejree) <targetjree> C -OPSYS 3 (default) 

[ -ALL 1 
[-HELP ! -USAGE 1 

Copy primos and/or prirun modules between ufds. 



VERSION JTAI1P. CPL " &** u ^ rSeUK ^ ^ 

Type out version number and creation date of this PRIMOS, 



COLD. CPL 

Build Scolds and run mapgen 



^jJs fb *0>w ^v i«\ <•>&¥&* 
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HOT I VAT I ON 

- Allows Primos to be booted in two steps: 

New BOOT command to the VCP 
SETIME command to Primos 

- Or in three steps: 

Old or New BOOT command to VCP 
PRIMOS command to DOS (Primos II) 
SETIME command to Primo* 



is 



IMPLEMENTATION 

- Software required for new BOOT command: 

New BOQI file from rev 19 Master Disk or rev 19 MAKE 

Rev 19.0 *DQS64 in DOS 

PRIMPS command in CMDNCO 

COMDEV must be first partition on device 
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JEW BOOTSTRAP 



NEW BOOT COMMAND: 



- Uses switches 4 and 5. 



4; down - prompt for 'Physical Device 2 ' 

up - use first partition on device specified in BOOT 
command 



1 fttllccS 






5: down - prompt for user input in Primes II via 'OK: ' 
up - execute PRIHOS command for user 

- PRIMOS command defaults to booting out of PRIRUN. 

- Must re-issue PRIMOS command to change default directory. 



Note, PRIMOS command will work without new BOOT/DOS. 
(However, if the command device is rev 19 format, ONLY the 
new DOS will recognize the disk. ) 
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installing a RING Q GATE 



This lab exercise consists of two distinct parts: modifying PRIMOS 
to add the gate and writing an application routine to take advantage 
of the new gate. ^ /^U. /W*s 



V/ o 



Adding a Gate to PRIHDS 

PRIMOS RING Gates are defined in PRiriOS)KS)SEG5. PMA 



Each Gate takes the form: ^^ &<# ^ * 

GATE (ring 3 name); (ring name) 
where 

(ring 3 name) is the routine name the application will use 
(ring name) is the actual routine name in ring 
if only one argument is present; then (ring 3 name) = (ring name) 

Add your new gate; being careful to place it at the end of the list; 
after all the other gates. Also be sure that the name you use is 
unique, 

The next step is to invoke COMPILE. CPL in order to re-compile the 
appropriate module(s), (Hint— Look at source comments) 

The newly compiled modules need to be re-loaded. 

Use PRIMOS. BUILD. CPL or LOAD. CPL remember to set the version number. 

(Mi fib J* ^ f bsf 
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Calling a RING Q GATE 

The application program should be kept as simple as possible; and must 
contain a "CALL (ring 3 name)" with arguments as required. 
In order to get a LOAD COMPLETE message from SEG> you mill need to 
write a short PMA program as follows: 



S£ 



r 



Cring 3 name) 




END 



e.g, 



6 



5 



A. 



1 



$ 



SEG 

DYNT 

END 



SRCH$$ 






TMOU t ST*™ 



Testing the program 

First try executing your application program under standard PRIHOS. 

REBOOT the system with your modified PRIHOS. 

Try executing your application program again. 
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Section 3 - MEMORY 
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CACHE FUNCTIONA1 niAfiRAM 



)C24 &zh&* 
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MEMORY 
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MEMORY f^ v 
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PROCESSOR 
EXECUTION 
UNIT 



DATA 
AND 
INSTRUCTIONS 
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INTERLEAVING 
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16 (32 bits on P750/P850) Ho 
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32. 



6y 



* 



<^ 6/h 



Interleaving is implemented using two identical boards. 
One board contains the even addresses) the other board 

contains th& odd addresses. 
This has the effect of speeding up sequential access and 

increasing the cache hit rate, 
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/} 



SEGMENTATION ' OisijA-A "f 6 \ 

Virtual Memory is divided into variable length SEGMENTS (64K words max) 
4096 SEGMENTS define 512 MB of Virtual Memory. 
The Virtual address space is divided into 4 areas (DTARs); 
each area consisting of 1024 C2000) segments. 



7777 



'6uu 



'5777 






'3111 



'2000 
'1777 



'0000 



t/i/efwu. /Hd^w 



PRIVATE PER USER (SYSTEM) 



PRIVATE PER USER (USER) 



|6 St^lAA^ 



SHARED BY ALL USERS 



EMBEDDED OPERATING SYSTEM 



CURRENTLY ENABLED 
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EFFECTIVE ADDRESS FORMAT 



PROGRAM INSTRUCTIONS GENERATE AN EFFECTIVE ADDRESS (EA) 

- 2 Bits RING NUMBER (defines privileges) 

- 12 Bits SEGMENT NUMBER 

- 16 Bits WORD NUMBER (within SEGMENT) 



12 3 4 5 



fy**tfi 



/ 






SEGMENT NO. 



IhJl 2L 

WORD NUMBER | 



The EFFECTIVE ADDRESS (28 BITS) is mapped to PHYSICAL MEMORY, 






- 22 Bits PHYSICAL ADDRESS 

- Up to 8M Bytes of PHYSICAL MEMORY. 
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RING NUMBER 
There are 3 RINGS which define the privileges of access 
to the SEGMENT. 

RING is the most privileged and allows unrestricted 
access to all segments. Ring is the only ring 
that can execute restricted instructions. 
PRIMOS runs in RING 0. 

RING 1 Not currently used by software 
NG 3 The least privileged, 

USERS run in RING 3. c,r, <rU 



<ve* C - ***! MM™** . A 



Hardware defines access rights of: 



Inner ring accessing memory in an outer ring. 



Outer ring accessing memory in an inner ring. 
GATE access 



The SHARE command f 
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MEMORY MANAGEMENT TECHNIQUES 

The total number of segments available is currently 1022. . + • . 
All 1022 segments cannot be contained in physical memory, j^ ^dJtncJ 
Virtual Memory is divided into two parts: <^^r jL-k 

1) the part in physical memory **** Md,^^ 

2) the part on the paging disk ' 
Certain information is too critical to be on the paging disk/ 

it is "WIRED" ("LOCKED") into physical memory. 
At COLD START, PRIMQS "wires" critical information, this area mill 

grow as PRIMOS requires certain per-user data to be mired. 
When user segments are allocated; paging space is allocated. 

Programs generate VIRTUAL ADDRESSES. ° y ^lAlL 

The VIRTUAL ADDRESS is translated (mapped) to a main memory address. 

If the required physical address is resident within physical memory/ 

the access may proceed without interruption. 
If not in physical memory; a PAGE FAULT will occur. 

When a PAGE FAULT does occur; the program is suspended while the 
required page is moved from the PAGING DISK into mam memory. 

This is called PAGING IN. 

If there is no physical memory page available; PRIMOS will use a 
Approximately-Least-Recently-Used algorithm to determine which 
page in physical memory will be PAGED OUT to allow space for the 
in-coming page. 
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MEMORY MANAGEMENT 
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ADDRESS TRANSLATION 

Every VIRTUAL ADDRESS is translated (mapped ) to a physical address by 
accessing the STLB (Segmentation Translation Lookaside Buffer). The 
3TLB holds the 64 most recent virtual to physical address translations, 
When the STLB does not \\^n a valid entry for the virtual address to 
be translated; hardware calculates the address translation using 
Descriptor Table Address Registers* Segment Descriptor Tables and 
Hardware Page flaps. The STLB is accessed again* this time being sure 
to get a STLB hit. During the translation* a page fault will occur 
if the desired page is not in physical memory. 



Simultaneous to the STLB access, hardware starts a CACHE access. 
If the word from cache is from the correct physical page* then the 
access is complete. If the word sought is not a valid cache entry* 
then the information is brought into cache from physical memory. 

In summary fastest to slowest: 

STLB 'hit' + CACHE 'hit' 

STLB 'hit' + MEMORY 'hit', CACHE 'hit' 

full translation, STLB 'hit' + CACHE 'hit' 

full translation, STLB 'hit' + MEMORY 'hit', CACHE 'hit' 

full translation (PAGE FAULT), STLB 'hit' + MEMORY 'hit', CACHE 'hit' 
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FULL ADDRESS TRANSLATIl 



SEGMENT NUMBER 

12 3_4 5 6 1 



1 1 R I 1 DTAR I 



16 1 



WORD NUMBER 
6 7 



DTAR SEGMENT OFFSET 



PAGE NO, 




16 



PAGE OFFSET 



HMAP 






PPN 



DTAR 

SDT 

3DW 

HMAP 

PPN 



Descriptor Tab Is Address Register 
Segment Descriptor Table 
Segment Descriptor Word 
Hardware page MAP 
Physical Page Number 



i 



PPN 



Ml OFFSET 



l 



12 13 



22 
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DTAR - DESCRIPTOR TABLE ADDRESS REGISTER 



10 11 



16 



17 



18 



3c 



Bits 1-10 

11-16 
18-32 



17 = 



1024 minus number of entries in SDT 
High order 21 bits of physical address 

of SDT origin 
must be zero 



o^y />***" h **j ^^ 
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SDW - SEGMENT DESCRIPTOR WORD 
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10 11 16 
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A A A 


B B B 


c c c 





17 18 20 21 23 24 26 27 



32 



|4 (Wftf dy^^i 
\\ /vwjr Ire 3^~° 




21-23 = 



24-2^ 



Physical address of Rags flap Table (HHAP) 

(Bits 11-16 must be zero) 

Fault Bit 

(AAA) Access rights from RING 1 

000 no access 

001 Gate access only 
010 Read access only 

Oil Read and write access 

100 reserved 

101 reserved 

110 Read and execute access 

111 Read; write* and execute access 
(BBB) reserved for future use 

(CCC) Access rights from RING 3 
same as RING 1 access bits 
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HMAP - HARDWARE PAGE HAP ENTRY 



Uy Pint £ M*6 A£+t»iTrtj 



2 



3 4 5 



16 
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U 


s 


PPN 



Bis 1 (V) = VALID Bit; set uihen page is in physical 

memory. 

2 (R) = REFERENCED Bit; set by PAQTUR uhen the 

page is brought in. 

3 (U) = UNMODIFIED Bit; reset by hardware whenever 

the page is modified. 

4 (S) = SHARED Bit, set at cold start for memory 

pages, so that each location in the 
page is not put in cache. 
5-16 = Physical Page Number (PPN) 



(bits 3,5 indicate page status if Valid bit is reset) 
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VIRTUAL ADDRESS 



12 3 4 5 




PHYSICAL 
ADDRESS 



(12 = INDEX) 
( 1 = VALID) 



DAT*. 
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PROCESS EXCHANGE 



Process Exchange is the hardware/firmware mechanism used to switch 
the CP from being used by one user to being used by a different user. 

A context switch occurs whenever a higher priority user or system 
requires the use of the CP, The context switch involves saving the 
registers and state of the currently running process and placing the 
needed information in the current register set for the new user or 
system. This is accomplished by the firmware/hardware and the two 
user register sets in the High Speed Register File. 

A process is a sequential flow of execution (a user; an I/O tiyif). 
The process is described to PRINOS by a PCB (Proce ssj fotrol Block) . 
Each process has its own PCB. A proces must be in one of two states: 

1). waiting for an event or non-CP resource 

2). ready to execute. 
Nhen the process has all the resources required to run and is only 
waiting for the CP; the process' PCB is placed on the READY LIST. 
If the process is waiting; its PCB is threaded onto a semaphore or 
wait list. 
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WAIT LIST (Semaphore) 
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Note: Queuing is priority order with FIFO for equal priority. 
However/ there are different flavors of NOTIFY; Notify 
end or Notify beginning. 



WAIT <semaphQre name) 
access semaphore 
count = count + 1 

if count > 

then PCB — > Wait List 
a else process continues 



NOTIFY (semaphore name) 
access semaphore 
count = count - 1 
first PCB -> Ready List 
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PROCESS CONTROL BLOCK 
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CLOCK PRQCESS/FNTSTQP^K O 




1 


AMLC PROCESS (ch^n^ i*/***^ 




2 


SNLC PROCESS 




3 


MFC PROCESS; HP2 (J***^ ^^ 




4 


VERSATEC PROCESS, MPC-4 




6 


RING NET CONTROLLER PROCESS - 


fjrtk Ctwv^ 
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SPARE 




D 


DISK PROCESS 
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SUPERVISOR PROCESS 
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USER LEVEL 3 
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USER LEVEL 2 


_l . t, A (j 


11 


USER LEVEL 1 (DEFAULT LEVEL) — 


. \fcu Q*w*yf L^ 


12 


USER LEVEL 




13 


BK1PCB (BACKSTOP 1) CPU #1 






BK2PCB (BACKSTOP 2) CPU #2 




14 


END OF READY LIST = 1 
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READY LIST EXAI1PLE #1 
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To move a PCB from the Ready List to a Wait List; the WATT 
instruction is used. The NOTIFY instruction will move a process 
from a wait list to the Ready List. Both instructions must always 
reference a semaphore or wait list. The NOTIFY removes the first 
PCB from the semaphore and places it onto the Ready List at the 
proper level. When the process has completed execution or requires 
another resource; a WAIT is executed and the process moves from 
the Ready List to the specified Wait List or semaphore. PCBs are 
placed in the Wait List queue in priority level order. 



READY LIST 

The firmware dispatcher uses two locations in the High Speed Register 
File Group 0. The first location is called PPA/PLA. PPA holds the 
pointer to the PCB of the currently running process. PLA contains 
the Ready List level of the currently running process. The currently 
running process will be the highest priority process on the Ready 
List. PPB contains the PCB address of the next process to run. PLB 
has the level of the next process. This allows the User Register Set 
for the next process to be set up while still running another process 
at a higher level. 
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READY LIST EXAMPLE #2 



PA/PLA 1 LEVEL A 1 PCB A | PPB/PLB | LEVEL B ( PCB B \ 
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'V 



BOL 12. 
EOL 12 



«4 

rL 



JK1PCB. 

BK2PCB 



1 



Level 



Link 



j* 



r 



Level 



Link 



'V 



<v 



n J 



Level 







r <j 



bi 



Level 



Link 



"n 



'M 



level 



3 







<v 



<v 
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The Ready List and the PCBs are all in Segment 4. This is one of the 
'wired' segements of PRIMOS, This means it never gets paged out to 
the paging disc. The Ready List begins at Segment 4, address '600 and 
extends through address '634. 

The PCB address and User Number bear a direct relationship to one 
another. For example; the address for User l's PCB is 100100. The 
address for User 7's PCB is 100700. The PCB st address 101200 
belongs to User 10. Addresses are in octal* user numbers are 
decimal. All PCBs are 64 C100) words long so the least significant 
two octal digits of any PCB address is '00. 






/ of V 



r 



*•« ^ 
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PPA/PLA 



f t4^ 



READY LIST EXAflPLE #3 



'616 [ 777Q0~1 PPB/PLB 



'626 


'100200. 



- t/v\ 



CLOCK '600 

'601 
AFILC '602 

'603 
SHLC '604 

'605 
UPC '606 

'607 

DISK '616 
'617 

LEVEL 2 '624 
'625 

LEVEL 1 '626 
'627 

LEVEL '630 

'631 

BACKSTOP /632 

'634 



usT 



. BOL 
76600 



. BOL 1 
77100 








. BQL 3 
77200 



"If 



<V 



BOL 10, 
EOL 10 



.'100200. 
'102300 



BQL 12. 
EOL 12 



76400. 
76500 



1 









UiOz-i- HP 



77700 



_77700 _ 
77700 




_ '616 





<v 



<v 



'100200 




'102000 




'102300 


'626 




'626 




'626 


'102000 




'102300 








<v 



<v 



<v 



»v 



<v 



<v 



76400 




76500 


'632 




'632 


76500 








<v 



•V 



<v 



This example shows actual addresses found using VPSD on Rev 18.2 
The contents pf PPA/PPB are calculated. 
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In Example #3* PLA points to the currently active level (Disk) and PPA 
points to the PCB of the currently running process. The Disk Driver 
is non) the highest priority process on the Ready List. PLB and PPB 
contain the level and PCB address of the next process to run. In our 
example/ the next process happens to be User 2. 

A CLOCK interrupt occurs. The interrupting controller places its 
address on the CPU Pus. The currently running process is suspended 
at the completion of the current instruction. The firmware uses the 
controller address as an index or vector into the interrupt segment 
which is also segment 4. At this address is a pointer to the 
Interrupt Response Code (IRC) which handles the interrupts from this 
particular controller. This code is not associated with any specific 
process and cannot have a PCB of its own. The IRC can do no more 
than acknowledge the interrupt and schedule the device driver to 
actually handle the event. This code is called the PHANTOH INTERRUPT 
CODE or PIC. The PIC will acknowledge the interrupt and execute an 
INEC (Interrupt Notify to End of list and Clear active interrupt). 
For a clock interrupt; the INEC will reference the semaphore CLKSEH. 
The INEC causes the clock to be scheduled on the READY LIST by moving 
the PCB from the Wait List to the appropriate level on the Ready 
List. PRIHOS has assigned the Clock the highest priority and all 
clock interrupts are placed on the Ready List at address '600 or 
level 0. If location '600 contains a zero, the address of the PCB is 
placed into location '600. If '600 is not zero* the firmware will 
access '601 and thread the new PCB onto the end of the chain. 
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PPA/PLA 



'600 


76600 



READY LIST EXAMPLE #4 



PPB/PLB 



'616. 


77700 



SEQUENT #4 


CLOCK 


'600 




'601 


AilLC 


'602 




'603 


site 


'604 




'605 


ffC 


'606 




'607 


DISH 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


ACKSTOP 


'632 




'633 




'634 



.76600 
76600 



. BOL 1 

77100 








.BOL 3 
77200 



<\ 




"u 



BOL 10. 
EOL 10 



.'100200. 
'102300 



BOL 12. 

EOL 12 



76400. 
76500 



1 



76600 



'600 







r v 



<V 



77700 



'616 







<v 



<y 



"j 



•y 



>v 



<v 



■v 



'76400 




76500 


'632 




'632 


76500 








<v 



r \l 



'100200 




'102000 




'102300 


'626 




'626 




'626 


'102000 




'102300 








*V n J 
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The NOTIFY instruction causes the firmware dispatcher to update the 
contents of PPA and PPB. As the clock interrupt is a higher priority 
than that of the currently running process; the contents of PPA/PLA 
is moved to PPB/PLB and the Clock's PCB address and level are placed 
into PPA/PLA. 

The clock driver will now run to completion. At the completion of 
the driver routine a WAIT CLKSEM will he executed. This removes the 
clock's PCB from the Ready List, places it on the CLKSEil Wait List, 
and allows the dispatcher to move PPB/PLB to PPA/PLA and update 
PPB/PLB for the next ready process, PPB/PLB is updated by the 
dispatcher performing a scan of the Ready List. This is done by 
comparing the BOL (Beginning Of List) and EOL (End Of List) for 
this level. If they are not equal, the next process is on the same 
level and PPB/PLB are updated. If they are equal, the next word (BOL 
for the next level) is checked. If this value is not zero; then the 
next process is on this level and PPB/PLB are updated. If BOL is 
zero, there is no ready processes on this level and the next level's 
BOL will be checked. This procedure will continue until PPB/PLB btb 
updated with a PCB address and a process' level. 
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PPA/PLA 



'616 '77700 



READY LIST EXAHPLE #5 



PPB/PLB 



1 " ———■— - » i ■ ■ ■■■I..II. H .I. ii i i.i— .^» 

'626 '100200 



SEQUENT #4 


CLOCK 


'600 




'601 


AHLC 


'602 




'603 


sue 


'604 




'605 


UPC 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


ACKSTOP 


'632 




'633 




'634 




76600 



. BQL 1 

'77100 








. BQL 3 
'77200 



"K 



r t 




BOL 10. 
EQL 10 



.'100200. 
'102300 



BOL 12. 
EOL 12 



'76400. 
'76500 



1 



'77700 



'616 







<v *v 



<v 



N 



•M 



<V 



<V 



76400 




76500 


'632 




'632 


76500 








<v 



r v 



'100200 




'102000 




'102300 


'626 




'626 




'626 


'102000 




'102300 








n J n J 



<v 
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READY LIST EXAMPLE #6 



PPA/PLA 



'626 1 100200 



PPB/PLB 



'626 , '102000 



SEGMENT #4 


CLOCK 


'600 




'601 


AflC 


'602 




'603 


sue 


'604 




'605 


upc 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


BACKSTOP 


'632 




'633 




'634 




76600 



. BOL 1 
'77100 








.BOL 3 
77200 



•\i 



1/ 




<v 



K 



BOL 10. 
EOL 10 



.'100200. 
'102300 



BOL 12. 
EOL 12 



76400. 
76500 



1 



ii 



i/ 



•M 



•M 



76400 




76500 


'632 




'632 


76500 








1/ 



1/ 



'100200 




'102000 




'102300 


'626 , 




'626 




'626 


'102000 




'102300 






<y <v 



"j 
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The process at the hwi of User Level 1 will nouj run until it 
completes execution, requires another resource, does an I/O 
operation, a fault occurs, or the process' time slice is used up. All 
of these conditions cause the PCB to he removed from the Ready List 
and placed on the appropriate Wait List. The firmware then 
dispatches the next PCB to PPB/PLB. 

When a process terminates "normally" (runs to completion), PRIMOS 
places the process' PCB on that User's BUFSEfl Wait List. BUF5EFI is 
the semaphore the User waits on while entering commands and typing at 
the terminal. 

If a process is terminated because of a time-slice end, the process' 
PCB is placed on a lower priority queue dependent upon which how much 
CP time the process has used and the User priority level. 
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READY LIST EXAMPLE #7 



PPA/PLA 



>ui 



626 



'102000 



PPB/PLB I '626 I -102300 



SEGMENT #4 
CLOCK '600 

'601 
AUC '602 

'603 
SflC '604 

'605 



UPC 



'606 
'607 



DISK '616 
'617 

LEVEL 2 '624 
'625 

LEVEL 1 '626 
'627 

LEVEL '630 

'631 

BACKSTOP '632 

'633 

'634 




76600 



. BOL 1 
77100 








.BOL 3 
77200 



"i/ 



n j 




BOL 10. 
EOL 10 



.'102000. 
'102300 



BOL 12. 
EOL 12 



76400. 
76500 



1 



M 



•M 



•M 



n J 



'102000 




'102300 


626 




'626 


'102300 








<%! 



•y 



76400 




'76500 


'632 




'632 


76500 








<v 



<v 
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READY LIST EXAMPLE #8 



PPA/PLA 



'600 



76600 PPB/PLB 



'626 '102000 



SEGMENT #4 


CLOCK 


'600 




'601 


AMLC 


'602 




'603 


SilLC 


'604 




'605 


UPC 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


BACKSTOP 


'632 



'634 



.76600 
76600 



. BOL 1 
77100 








.BOL 3 
77200 



^ 



<v 



<y 




BOL 10. 
EOL 10 



.'102000. 
'102300 



BOL 12. 
EOL 12 



76400. 
76500 



1 



76600 



'600 







•M 



<V 



<V 



<V 



"U 



'102000 




'102300 


'626 




'626 


'102300 








<v 



<v 



76400 




76500 


'632 




'632 


76500 








-V 



•y 
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READY LIST EXAMPLE #9 



PPA/PLA 


'600 


76600 


PPB/PLI 


] 1 '616 77700 


SEQUENT #4 






76600 








CLOCK '600 


_'76600 _ 
76600 




'600 






'601 







AHLC '602 
'603 


_ BOL 1 _ 
'77100 


r 


V r 


•J 




SHLC '604 
'605 










MFC '606 
'607 


_ BOL 3 _ 
'77200 




r 


U <\ 


J 


77700 






DISK '616 


J 77700 _ 
77700 




'616 






'617 







r 


W 1 


4 ' 


M r 

'102000 


J 




LEVEL 2 '624 
'625 


_ BOL 10_ 
EOL 10 






'102300 




LEVEL 1 '626 


_'1Q2000_ 
'102300 




'626 




'626 




'627 


'102300 







LEVEL '630 
'631 


_ BOL 12_ 
EQL 12 


r 


76400 


u n 


76500 


u 


BACKSTOP '632 


_ 76400_ 

76500 




'632 




'632 




'633 


76500 







'634 


1 


r 


M 


n 


a « 


j r 


1 
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PPA/PLA 



'616~~7 '77700 



READY LIST EXAMPLE #10 



PPB/PLS 



'626 I '102000 



SEGMENT #4 


CLOCK 


'600 




'601 


AMLC 


'602 




'603 


sue 


'604 




'605 


MPC 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


ACKSTOP 


'632 




'633 




'634 




'76600 



. BOL 1 
'77100 








.BOL 3 
77200 



<\ 



<v 




<v 



BOL 10. 
EOL 10 



.'102000. 
'102300 



BOL 12. 
EOL 12 



'76400. 
'76500 



1 



'77700 



'616 







>M *V 



<V 



'V 



'V 



<v 



'102000 




'102300 


'626 




'626 


'102000 






>M 



<V 



76400 




76500 


'632 




'632 


76500 






•y 



'V 
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READY LIST EXAMPLE #11 



PPA/PLA 



'626 



'li 



1 PPB/PLB 



'626 I '102300 



SEGMENT #4 


CLOCK 


'600 




'601 


AHLC 


'602 




'603 


sue 


'604 




'605 


upc 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


BACKSTOP 


'632 




'633 




'634 




'76600 



. BOL 1 
'77100 








.BOL 3 
77200 




nj m, 


._ BOL 10_. 


EOL 10 


_'102000._. 


'102300 


._ BOL 12_. 


EOL 12 


_ 76400_. 


76500 


1 



"J 



T* 



'102000 




'102300 


6&6 




'626 


'102300 








^ 



'V 



76400 




76500 


'632 




'632 


76500 








-V 
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READY LIST EXAMPLE #12 



PPA/PLA 



'626 '102300 



PPS/PLB 



'632 



76400 



1 



SEQUENT #4 
CLOCK '600 

'601 
AMLC '602 

'603 



sue 



'604 
'605 
'606 
'607 



DISK '616 
'617 

LEVEL 2 '624 
'625 

LEVEL 1 '626 
'627 

LEVEL '630 

'631 

BACKSTOP '632 

'633 

'634 




76600 



. BQL 1 
77100 








, BQL 3 
77200 



<v 



<v 



<v 




-V 



BOL 10. 

EOL 10 



.'102300. 
'102300 



BOL 12. 
EOL 12 



76400. 
76500 



1 



' 1 m 



102300 



'626 







<v 



"J 



n J 



76400 




76500 


'632 




'632 


76500 








-V 



"J 
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READY LIST EXAMPLE #13 



PPA/PLA 



""'632 I '76400 



PPB/PLB 



'632 



^a 



SEGMENT #4 


CLOCK 


'600 




'601 


auc 


'602 




'603 


sue 


'604 




'605 


ripe 


'606 




'607 


DISK 


'616 




'617 


LEVEL 2 


'624 




'625 


LEVEL 1 


'626 




'627 


LEVEL 


'630 




'631 


ACKSTOP 


'632 




'633 




'634 




'76600 



. BOL 1 
77100 








.BOL 3 
'77200 



'V 



<v 




■V 



<v 



BOL 10. 
EOL 10 




'102300 



BQL 12. 
EOL 12 



'76400. 
'76500 



1 



76400 




76500 


'632 




'632 


76500 








<* 



•M 



"J 
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The BACKSTOP processes PCBs are ALWAYS on the Ready List. The 
purpose of BACKSTOP is to call the SCHEDULER. The SCHEDULER is used 
to move any process which has taken a time-slice end or is on the 
'HI-PRI' queue to Ready List with another time-slice. There btb two 
BACKSTOPS as the P850 requires one BACKSTOP for each CP. . ej 



PRELIMINARY 4 - 25 PROCESS EXCHANGE 



PR MS REV. 19.1 



PRIMQS INTERNALS 



USE OF LOCK SEMAPHORES - Simple Loc; 



DATA 



t 



B 



Tiiio processes are sharing the same data area, Process A could be 
changing data at the same time as Process B is reading the data. 
B may read incorrect data. 

To prevent this* use a Simple Lock Semaphore (initial count = -1). 

In order to access the data 

Process A must wait on the semaphore (count = 0) 
Process A. proceeds 

If Process B attempts to access the data it must first mait on 

the semaphore, (count = 1) 

Process B goes onto the Wait List for that semaphore 
Process A must NOTIFY the semaphore, (count = 0) 
Process B returns to the Ready List and proceeds 



All processes that access the data must first WAIT on the semaphore 
and NOTIFY the semaphore when access is completed. 



PRELIMINARY 



26 



PROCESS EXCHANGE 



PRIMOS REV. 19. 1 



PRIMQS INTERNALS 



USE OF LOCK SEMAPHORES - Ordered Locks 



A 



■> 



SEilAPHORE 



DATA 1 



S 



DATA 2 



f 



i* 



Tido processes are sharing two data areas, 
If using simple locks; 

Process A WAIT on semaphore 1 

Process B WAIT on semaphore 2 

Process B WAIT on semaphore 1 

Process A WAIT on semaphore 2 
A "Deadly Embrace" situation will be the result. 



Q4 AJMsJ*^ 



6H /i//H^- 



I 



To avoid the "Deadly Embrace"; it is vital that all processes that 
share data areas order their locks. The WAITs on the various 
semaphores must occur in the same order for each process. 

Process A WAIT on semaphore 1 Process B WAIT on semaphore i 
Process A WAIT on semaphore 2 Process B WAIT on semaphore 2 
Process A NOTIFY semaphore 1 Process B NOTIFY semaphore i 
Process A NOTIFY semaphore 2 Process B NOTIFY semaphore 2 
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Section 5 - Traps, Interrupts; Faults and Checks 



PRELIMINARY 5 - 1 TRAPS, INTERRUPTS, FAULTS, CHECKS 



'RIMOS REV. 19.1 PRIHOS INTERNALS 



There are 3 categories of software breaks in program execution; 

1). INTERRUPTS 

2). FAULTS C. brtvfcs ^ ikecuh^x 
3). CHECKS 

,/TRAP refers to a break in execution on the microcode level. TRAPS 

£*• can occur for many reasons; some of which may directly or indirectly 

&M£ caU 5e breaks in software execution. Not all software breaks sv& a 
result of a TRAP. 

1). INTERRUPT (External Interrupt? 
A signal has been received from a d evice in the externaj jiiHLli 
(including clocks) indicating that the device either requires service 
or has completed an operation. 

2). FAULT 

A FAULT is a condition which has been detected as a result of the 
c urrently running software and which requires software intervention. 
A FAULT may be handled by the current software though most frequently 
common supervisor code will handle the FAULT (e.g. Page Fault), 

3). CHECK 

A CHECK is an inter nal CP cons istency problem that requires software 
intervention. The problem may be an integrity violation; reference to 
a non-existent memory module or a power failure, 
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PRinos rev. 19. i fnc - pu*»fa* l"^™/ ^ primos internals 

EXTERNAL INTERRUPTS 



When an EXTERNAL INTERRUPT is generated by a controller; the 
controller places a 16 bit interrupt vector address onto the bus. 
This address is used as an index into the interrupt segement (Seg 4) 
Segment 4 is "wired memory" and will; therefore; always be present 
in physical memory. The PB and Keys i?Q saved in the microcode 
scratch registers PSWPB and P5WKEYS. 

Further interrupts in then inhibited and the Interrupt Response Code 
(IRC) begins execution in 64V mode. It is the responsibility of the 
IRC to issue a CAI (Clear Active Interrupt) to the interrupting 
controller. 

The IRC is Segment 4 does not belong to any specific process and has 
no PCB assigned to it. As it has no PCB; the IRC cannot save its 
registers and context. Clearly; there is little the IRC can do. It 
returns to PROCESS EXCHANGE as quickly as possible. The IRC is 
generally referred to as the PIC (Phantom Interrupt Code). 

The PIC must perform one of two operations: 

1). If the interrupt is very simple; the PIC will handle the 

interrupt 
2). in the case of a more complex handling routine; PIC will 
reset the interrupt and NOTIFY the remainder of the PIC. 



PRELIMINARY 5 - 3 TRAPS, INTERRUPTS; FAULTS, CHECKS 



PRiriOS REV. 19.1 PRIMOS INTERNALS 



1). Simple Case 
The IRTN (Interrupt Return) mill be executed, This mill restore the 
PB and KEYS and enter the dispatcher. 



2). NOTIFY IRC Case 
In order to NOTIFY a process; PIC must ensure that the PB and KEYS 
are restored before issuing the NOTIFY. The I NOT I FY instruction will 
do both the restore and the Notify. 

There are two ways by which the PIC can issue a CAI. 

1). CAI instruction 

2). Set bit 15 of the IRTN/INOTIFY instruction. 
In practice^ the PIC combines all of the above steps with a single 
instruction INEC. 
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CLOCK INTERRUPTS (V UCp) 
Host current Prime systems use a device called the Programable 
Interval Clock (PIC). The PIC is a counter that is initialized or 
loaded by system software and once it is loaded it counts up at a 
rate of 3.2 us. until it overflows. The overflow is used to generate 
an interrupt via location '63. to make up the clock interrupt handler 
(and hence the clock process). The counter is located on the 
controller itself and can he counted independently of CPU operation. 

The PIC counter is initialized at cold start to a ^ 947. 

947 * 3. 2 us. = 3. 0303 ins. 
After the PIC counts up 947 times at a 3. 2 us. rate it overflows and 
generates an interrrupt via location '63 at a 3.0303 ms. rate. The 
PIC need only he preset once; thereafter it will reinitialize itself 
to a -947 after each time it overflows. 

Earlier systems used a hardware controller called an Option A 
instead of a Diagnostic Processor (DP); System Option Controller 
(SOC); or Virtual Control Panel (VCP). The Option A hoard contains a 
Real Time Clock (RTC) which depends on the CPU to increment a memory 
location; which results in greater CPU overhead. 
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FAULTS 

FAULTS are CPU events which are synchronous with and caused by 
software, ^n^ c^u^j JfytQj <fv %>*> 

Two data areas are used: 

1). PCB FAULT VECTORS and concealed stack pointers 
2). the FAULT TABLES pointed to by the PCB vectors.} %~>% 
Therefore each process can define its own fault handlers and the 
concealed stack allow FAULTS to he stacked. The PAGE FAULT has its 
own vector and only one system-wide handler is used so ail PAGE FAULT 
vectors point to the same place. 

Each FAULT TABLE entry consists of 4 words, of which the first 3 must 
be a CALF instruction. The CALF (CAL1 Fault) instruction is 
essentially a PCL (Procedure CaLl) instruction for the various Fault 
handling routines. The PB and KEYS from the concealed stack are 
placed in the Fault Handler's stack frame along with other base 
registers. The Fault Code and Fault Address are placed in words 
'12, # 13j '14 of the Fault Handler's stack. The first word of the 
new stack frame is set to a value of 1. This is to distinguish the 
CALF stack frame from the normal PCL stack frame. The ECB (Entry 
Control Block) addressed by the CALF must not specify any arguments. 
Return from the fault handler is by normal PRTN instruction. 
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ACTION DN FAULT 
1). Create an entry in the Concealed Stack (Firmware). 

2). Transfer control to the Fault Table at the correct offset* in 64V 
Hode» with interrupts enabled. 



3). Execute the Fault Handling routine as a part of the current 
process. The entry in the Fault Table will a CALF instruction. 
This creates a Stack Frame and transfers the Fault Code and Fault 
Address into this Stack Frame. The Fault Handling routine 
(software) is now called. 

4). The Fault Handling routines executes a Procedure Return to exit 
the Fault processing and resume "normal" program execution. 

REFALT f\ p*% ftftAd c^\ W Jmji^ o^ ~hj> /) 
1). Mechanism for deferring faults until the return from PGFSTK. 

2). REFALT modifies the return (PB) in a stack frame and pushes a 
frame in the concealed stack so that a simulated fault may be 
taken when leaving PGFSTK. 
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CHECKS 



A CHECK is a CPU event which is asynchronous with and not caused by 
normal instruction execution. CHECKS can most easily be classified 
as some sort of hardware physical failure. 

There are four types of CHECKS: 

CHECK HEADER LOC FIRST INSTRUCTION DSW 

QF HANDLER SEL 

Power Failure 4/ '200 4/'204 No 

Memory Parity 4/ '270 4/ , 274- 5 ^ e ^ / ^^s 
Machine Check 4/'3G0 4/ '304-*"" "* "*"Yes' 
Hissing Memory 4/ '310 4/ '314 Yes 



Each CHECK class has a single save area consisting of 8 words in the 
interrupt segment; in which the PB and KEYS are saved in the first 4 
locations and the remaining 4 locations contain software codes. 

Three 32 bit registers are used as a Diagnostic Status Word (DSW) to 
help a software Check Handler determine the cause of the CHECK, 
Check Handling software has the responsibility of clearing the 
DSW after every CHECK. 



a—l$ (JUi^ ~fL 
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Section 6 - System Initialization 
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SYSTEM INITIALIZATION 

PRIMOS is initiated from PRIHQS II by atteching to the UFD PRIRUN 
(Normally found on the command disk) and resuming PRIHQS. The routine 
PRMLD.FTN is then entered and the following actions ^tq performed: 
1). Attach to CHDNCO and open the file CJRMQ for command input. 
2). If the file is not found; output the message L J 

'PLEASE ENTER CONFIG' and return to console input. (OLD STYLE) 
3). Read in the first command from the file or read the 

command from the console. 
4). If the first command is not a CONFIG; output the message 
'FIRST COMMAND MUST BE CONFIG' and return to the 
message in 2). 
5). Close the C_PRMQ file and proceed with configuration, 
configuration. 

NEW STYLE CONFIGURATION 
1). Open CONFIG data area 
2). Read in commands and check legality. 
3). When 'GO' command is inputted; close data file and proceed 

as "OLD STYLE CONFIGURATION" from step 1). 
4). If no 'GO' is inputted and the end of- file is reached; 
output the message 'MISSING GO'. 
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OLD STYLE CONFIGURATION 

1). Checks configure^ and start-up the main and alternative 

paging devices (if applicable). 
2). If the device is illegal; output the message 'ILLEGAL PAGDEV 
3). If the device contains normal file formats rather than paging 
formats, output the message 'USE DISK FOR PAGING'. A 'YES' 
or 'NO' answer must be given. THINK TWICE OR THRICE BEFORE 
ANSWERING 'YES'. BY ANSWERING 'YES' THE SURFACE IS HADE INTO 
A PAGING SURFACE AND ALL FILE DATA IS DESTROYED AND LOST. 

4). Check* configure and start-up the command device. 

5). If the device is illegal* output the message 'ILLEGAL CO? 

6). Check the. paging devices for split disk. If the name is 

'PAGING', it can contain a 'BADSPT' file. 

7). Read in the page maps from SCOLDS. 

8). If there is a BADSPT file* adjust the page maps accordingly. 

9). Pre-page all PRXXXX files as necessary. 

10). Resume *COLDS. 

There are two possible entry points to the system: 
1). COLD START - enter at SEG '14 '3000 
2). WARM START - enter at SEG '14 '1000. 



t) / 
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COLD START 



PHASE 1 



1). Enter 64V mode. 

2). Set up CPU model number) u-code revision number/ and write 

PRIMOS version into LQGBUF. 
3). Set up controls for OPTION A or SOC is ASRDIH. 
4). perform memory scan to size memory, check parity* and 

find bad pages. 
5). Invalidate the STLB. 
6). Clear the DSW. 

7). Set up the interrupt processes PCBs. 
8). Set up and start the clock. 

9). Enter PROCESS EXCHANGE mode. 

10). Set up Stack Base Register for USER 1. 

11). Call AINIT. 
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AINIT 



1). Turn off input from system console until I/O buffers 

are configured. 
2). Set up system console baud rate if necessary. 
3). Print the system ID and memory size. 
4). Set up 'MAXSCH' based on available memory. 
5). Check that 'CONFIG' information is available. 
6). Check NUSR, PAODEVi CQMDEV, MAXPAG, ALTDEV, NAMLC, 

NPUSR, NRUSR, and SMLC. 
7). Set up PAQREL for PAGDEV and ALTDEV (split disks only). 
8). Unlock pages not needed for M1AP and adjust page maps. 

9). Allow PAGE FAULTS. 
10). Initialize USRCOMs. 
11). Set login name for USER 1. 

12). Attach to CHDICO. 

13). Establish terminal buffers for configured lines. 

14). Call CINIT to process CONFIG commands. 

15). Allow input from system console. 

16). Initialize and mire PCBs for configured USERs 2 and up. 

17). Calculate NSEG as follows: 

A). Segments that will fit into specified paging space, 

B). Specified NSEG command. 

0. Default NSEG setting (Pre-Rev. 18). 
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AINIT ■ continued 

18). Initialize DTAR2 and DTAR3 for users. 

19). Set page maps for RINGG Stacks. 

20). Invalidate all except first two pages. 

21). Set up templates for USER'S PUDCQM and RING Stacks. 

22). Set up PUDCQM and USRCQM for configured users, 

23). Lock network code if networks configured. 

24). Lock SHC driver if configured. 

25). Initialize ECBs in Gate (Segment 5). 

26). Initialize USER priority level 

27). Open C_PRMQ if found; and skip the first 

executable statement. 

28). Turn on AMLC and networks (if configured). 

29). Calculate and print wired memory if WIRMEM 

directive is found. 

30). Print message 'PLEASE ENTER DATE'. 

31). Call FATAL$ to exit command for USER 1. 

Once the date and time have been entered by the SE command* USERs 
may LOGIN. The form of the SE command is: SE -MMDDYY 4 

32). Process other commands in C PRHO 
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WARM START 

1). Enter 64V mode. 

2). Set up DTARs, Link Base/ and enter Segmented Mode. 

3). Initialize IOTLB. 

4), Save registers on interrupted USER. 

NOTE: WARM START cannot be done if no registers have 
been saved. If this is the case* HALT. 
5). LOG if power fail. 
6). Move registers from save ^T2i to PCBs. 
7). Correct PB/KEYS for process that was running. This 
is necessary if the HALT was in Phantom Interrupt Code 
or after a Machine Check. 
8). Reset PCBs for device driver processes. 
9). Initialize various flags and control registers for 

device controllers and device drivers. 
10). Reset USER 1 Stack; reset Clock; and enter PROCESS 

EXCHANGE (node. 
11). Handle UPS (Uniterruptable Power Supply) if present. 
12). Log WARM START in LQQBUF. 
13). Reset critical state variables and semaphores. 
14). NOTIFY DSKSEM if user waiting. 
15). Set WARMALM for USER 1. Other USERs should continue 

normally. 
16). Exit into clock process. 
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CONDITION MECHANISM 



MOTIVATION 

- system software error handling 

- manage reentrant/recursive command environment 

- user program error (and event) handling 

- support ANSI PL/1 condition mechanism 



IMPLEMENTATION 



- extended stack \\bs^v 

- on-unit descriptor Hock (on stack) 

- condition frame header (on stack) 

- fault frame header (on stack) 
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CONDITION MECHANISM-definitions 

COND I T I ON - anjmschfiiliilM-ivattt (ft S y * ^n*? ^) 

QN-UNIT - a procedure to dandle an event 

SIGNAL - telling the world the event happened 

RAISE - procedure which searches the stack for the QN-UNIT 

CRAWL_ - procedure which switches from inner ring to ring 3 stack 

HAKE QN-UNIT - turn on event handler for this activation 
REVERT QN-UNIT - turn off event handler for this activation 
NQN-LQCAL-GQTQ - a goto to a predefined label not in this activation 

DEFAULT QN-UNIT - one example of system use of condition mech. 
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ok. e* seg sleep 

This is SLEEP. FTN* ping to sleep for one minute /# normal 
This is SLEEF.FTN* finished sleeping* exiting /# execution 

ok. e* seg sleep 

This is SLEEP. FTN* going to sleep for one minute /# control P 



$ typed 



QUIT. 

ok. ei dmstk -all -onjnits 

Backward trace of stack from frame 1 at 6002(3)/7642. 



STACK SEGMENT IS 6002. 



(1) 007642: 0&mer= (LB= 13(01/13062). 

Called from 13(3)/101525i returns to 13(3)/101531. 

(2) 006564: Owner= (LB= 13(03/103240). 

Called from 13(31/100723; returns to 13(31/100727. 

(3) 004330: Oumer= (LB= 13(0)/103240). 

Called from 13(3)/I0234i returns to 13(3)/10254. 
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(4) 003576: Ouner= (LB= 13(03/130623. /* STD$CP 
Called from 13(33/2717; returns to 13(3)72731. 

Onunit for "CLEANUPS" is 13(33/14063. 
Onunit for "STOPS" is 13(33/13663. 
Onunit for "SUBSYS_ERR$" is 13(3)/13703. 

(5) 003260: Oynsr= (LB= 13(0)/3700). /* LISTEN, 
Called front 13(33/75556; returns to 13(33/75562. 

Onunit for "CLEANUPS" is 13(33/4432. 

Onunit for "ANYS" is 13(3)770446. 

Onunit for "LISTENERJRDERS" is 13(31/4472. 

Onunit for "SETRCS" is 13(3)74452. 

Onunit for "REENTERS" is 13(33/4512. 

(6) 003234: Omner= (LB= 13(0)775172). /* COMLVS 
Called from 13(3)/55364j returns to 13(3.1/55366. 

(7) 002544: Oujner= (LB= 13(01/57774). /* DFJJNIT. 
Called from 13(33/45217; returns to 13(33/45223. 

(8) 002444: Oniner= (LB= 13(0/44734). /* RAISE 
dim from 13(33/44267; returns to 13(33/44301. 
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(9) 002316: CONDITION FRAME for "QUITS"; returns to 13(35/51247. 
Condition raised at 6(01/3435; LB= 6(0/3314, Keys= 014000 
(Craniloui: to 4001(3)/1043; Lfi= 4002(01/177400. ) 
Inner rir-g fault: type "PROCESS" (4)i code= 000200; addr= 0(0)/0 
Registers at time of fault in inner ring: 

Save Hask= 000000; XB= 6(0/1372 



GRO 







GR1 








L, GR2 







E, GR3 








GR4 







Y, 0R5 








GR6 







X,GR7 








FARO 0(0)/0 




FLRO 




FRO 


0. OOOOOOOOE 00 


FAR1 0(01/0 




FLR1 




FRl 


0. OOOOOOOOE 00 



(10) 002114: Ouner= (LB= 13(0/50660). /* CRFIM_ 

Called from 4001(3)/1043; returns to 4001(31/1043. 

STACK SEGMENT IS 4001. /* control P typed here 

(11)001174: Oiuner= (LB= 4002(0/177400. /* SLEEP. FTN 
Called from 4000(3)756547; returns to 4000(3)756551. 
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STACK SEQUENT IS 4000. 

(12) 150062: OiDner= (LB= 4000(0) /56234). /* SEG (VRUNIT) 
Called from 4000(3)71723; returns to 4000(31/1725. 

Proceed to this activation is prohibited. 

(13) 150012: Owner* (LB= 4000(0) /5130). /* SEG (MAIN) 
Called from 4000(3)71100; returns to 4000(3)/! 102. 

Onunit for "CLEANUPS" is 4000(3)757340. 



(U) 150000: Oniner= (LS= 4002(0)7177400). 
Called from G ( ) / 1 77776; returns to 0(0)/0. 



/# invalid frame 
/# set up by SEQ 
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STACK SEGMENT IS 6002. 

(15) 001652: Owner* (LB= 13(3)731260). /* INVKSI1. 
Called from 13(3)712610; returns to 13(3)712632. jp^s 
Onunit for "CLEANUPS" is 13(3)731745. f^fr-- 

Onunit for "ANYS" is 13(3)731725. 






(16) 001472: Owners (LB= 13(0)713062). 

Called from 13(3)711632; returns to 13(3)711636. 



(17) 000750: 0wner= (LB= 13(0)713062). 7* STDSCP 

Called from 13(3)72717; returns to 13(3)72731. c£W^4 
Onunit for "CLEANUPS" is 13(3)714063. 
Onunit for "STOPS" is 13(3)713663. 
Qnunit for "SUBSYS ERRS" is 13(3)713703. 



(18) 000432: Owner= (LB= 13(0)73700). 7* LISTEN. 
Called from 13(3)7142374; returns to 13(3)7142400. C<**** <h 
Onunit for "CLEANUPS" is 13(3)74432. '1™ h ^f) 

Onunit for "ANYS" is 13(3)770446. 
Onunit for "LISTENERJROERS" is 13(3)74472. 
Onunit for "SETRCS" is 13(3)74452. 
Onunit for "REENTERS" is 13(3)74512. 



(19) 000424: Gwner= (LB= 13(0)7142014). /# I 
Called from 0(0)7142376; returns to 0(0)70. 
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The condition mechanism is activated whenever a condition is raised 
by the PL/1 (SIGNAL STATEMENT) or by a call to SIQNLI or SGNLIF. It 
scans the stack backyards in sequence until an activation is found 
with an on-unit the condition or for ANY$ is found. 

POSSIBLE ACTIONS QF AN QN-UNIT 

1). Perform application specific tasks (e.g. closing 

files* updating files), 
2). Repair cause of condition and resume execution. 
3). Decide that the normal flow can be interrupted 

and the program re-entered at a known point by 

performing a non-local GQTQ to some previously 

defined label. 
4). Signal another condition. 
5). Transfer user to command level. 
6). Continue the search for more on-units. 
7). Run diagnostic routines. 



PRELIMINARY 7 - 9 CONDITION MECHANISM 



PRIMOS REV. 19. 1 PRIMOS INTERNALS 



CONDITIONS 

I). A name (Up to 32 characters). 

2). Machine state at the time the condition occured. 
3). Auxiliary information (e.g. file control block of PL/1 I/O 
condition). 

4). Continue suiitch (continue to signal) 

5). Return syitch (on-unit may return) 

6). Inaction switch (on-unit may return without taking any action) 



ON-UNIT 

1). Ham of condition to be handled. 

2). A pointer to the procedure to handle the condition. 

3). Reverted switch (the on-unit is no longer active if set) 

4). Specifier (set if more than the condition name is required 

to completely describe the condition) 
5). Specifier pointer (to file descripter if required) 
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CLEANUP. FTN 
EXTERNAL BKHDLR 
INTEGER DUMMY 
REAL#8 BRKRTN 
COMMON /BRKLBL/ BRKRTN 
LOGICAL*? HAINBK 
COnflQN /BRKCOM/ MAINBK 

MAINBK = . FALSE. /* BKHDLR NOT VET ENTERED 

CALL MKON$F {'QUITS', 5, BKHDLR) /# MAKE ON-UNIT FOR MAIN 
CALL MKLB$F ($1000, BRKRTN) /* LABEL FOR NON-LOCAL GOTO 

mm 10 

10 FORMAT ('Entering MAIN after invocation from SEGM 

PRINT 20 
20 FORHAT ('Type <RETURN> to call SUBA, (BREAK) to test on-unit') 

READ (1,25) DUKHY 
25 FORMAT (A2) 

IF (HAINBK) GOTO 100 

CALL SUBA 

PRINT 30 
30 FORHAT ('Returned to (IAIN normally from SUBA') 

CALL EXIT 
100 PRINT 110 
110 FORHAT ('Returned to MAIN from BKHDLR') 

CALL EXIT 
1000 PRINT 1010 

1010 FORHAT ('Returned to HAIN via NON-LOCAL go to') 
CALL EXIT 
END 
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SUBROUTINE SUBA 
PRINT 10 

10 FORMAT {''Entering SUBA called by (IAIN, call SUBfi') 
CALL SUBB 
PRINT 20 

20 FORMAT ( 'Returned to SUBA normally from SUBB' 

RETURN 

END 

SUBROUTINE SUBB 

EXTERNAL HDLRB 

CALL MKONSF ('QUITS', 5, HDLRB) 

PRINT 10 
10 FQRHAT ('Entering SUBB called by SUBA. call SUBC) 

CALL SUBC 

PRIHJ 20 

20 FORMAT {'Returned to SUBB normally from SUBC) 

RETURN 

END 

SUBROUTINE SUBC 

INTEGER DUMMY 

EXTERNAL CLHDLR 

CALL MKONSF ('CLEANUPS', 8, CLHDLR) 

PRINT 10 
10 FORMAT ('Entering SUBC called by SUBB') 

PRINT 20 
20 FORMAT ('Type <RETURN> to EXIT, (BREAK) to test on-unit') 

READ (1,25) DUMMY 
25 FORMAT (A2) 

PRINT 30 
30 FORMAT ('SUBC exiting normally') 

RETURN 
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CONDITION HECHAN I SH— CLEANUP . FTN . 

SUBROUTINE SKHDLR (PNTR) 
INTEGERS PNTR 
L0GICALS2 MAINBK 
COMMON /BRKCOM/ MAINBK 

CALL TNQUCBRHDLR called by condition QUIT!., returns 40) 
PAUSE 1 /* needed since I/O on return 

MAINBK = . TRUE. /* BKHDLR now entered 

RETURN 

Em 

SUBROUTINE HBLRB (PNTR) 

INTEGERS PNTR 

REAL*8 BRKRTN 

COMMON /BRKLBL/ BRKRTN 

PRINT 10 
10 FORMAT ('Entering HMB zzltei by condition QUITS, call PL1INL') 

CALL PL1SNL (BRKRTN) 

RETURN 

END 

SUBROUTINE CLHDLR (PNTR) 

INTEGERS PNTR 

PRINT 10 
10 FORMAT ('Entering CLHDLR called by condition CLEANUP!., return') 

RETURN 

END 
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CRAWLQUT 

Crawlout occurs yhen the end of an inner ring stack has been reached 
by the condition mechanism without handling the condition. 

Control always orginates in an outer ring* the end of an inner ring 
stack is threaded to an outer ring stack. The condition mechanism 
continues the stack search across the connection and back down the 
outer ring stack. Crawlout is the mechanism which copies the 
information describing the condition to the outer ring and resignals. 

When RAISE reaches the end of the inner ring stack* it returns to 
SIGNLI with the CRAWLOUTJEEDEB flag set* a pointer to the last stack 
frame on the inner ring (CRAWL JRAME) and a pointer to the most 
recent inner ring stack frame in which the registers are saved. 

SIQNLI calls CRAWL_ defining the crawlout fault interceptor module 
(CRFIHJ. The stack frame on the outer ring is the target frame. 

CRAWL_. checks the space needed in the outer ring stack for the target 
ring stack and copies the neccessary information into the target 
stack. The return information in CRAWL.FRAME is adjusted to m^ a 
though it was called from the target frame. 



b 



UNWIND is t3ll^ to unwind the stacks and RO locks are released. 
A procedure return is then invoked to CRFIH_, 

CRFIH_ calls SIQNLI to signal the condition in the outer ring and the 
on-unit will invoke the first LISTEN_ level. 
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SEGMENT 6003 
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Ring 3 




Stacks 




Signal 


i A 
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Procedure B signals a condition. Fhe stacks are searched but 
a suitable on-unit cannot be found. 
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FAULTS are handled in two ways: 
1). Those handled in RING and 
2). Those handled in the current RING (RING 3). 

1). RING Q FAULTS 

The Fault Vector in the user's PCB for RING points to 
a fault table called FAULT in Segment 6. The fault 
table is defined in PRIHOS>KS>PABORT. FTN The Fault 
Handlers are found in PRIi v !OS>KS>ROFALT. PNA 

The following Fault Handlers exist in Segmment 6: 
PROCESS FAULT 
PAGE FAULT 

UII (Unlmplemented Instruction) 

ACCESS VIOLATION 
STACK OVERFLOW 
SEGMENT FAULT 
POINTER FAULT 
Any other Fault occurring in RING (e.g. SVC/ restricted 
instruction) will cause the system to HALT. 

PROCESS FAULT 

i. Check Abort Flags 

2. If any Abort Flag is set and aborts BT2 enabled; call PARnsT 
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SYSTEM ABORT FLAGS A f** ** li T" * 

\ fir /K <- ; y- *f ' 

PABORT bit number ^ ° D 

1 MINALM One minute update 

2 SMLALM SMLC alarm 




3 NET ALU Network Alarm £u%hu~ ws&Z 

4 LGIALM LOGIN Alarm 

5 WRMALM Warm Start 

6 MSGALil SUSR Message Alarm 
7,8 Not Used 



USER 1 



1 ONE MINUTE (MINABT) 

Dump any entries in LQGBUF to LOGREC 

Update all disk buffers 

Decrement auto-logout clocks and logout any USERs out of time. 

2 SMLC (SMLCEX) Process SMLC requests 

3 NETWORK Process network requests (done by NETUSR at Revision 19) 

4 LOGIN ALARM (WIRSTK) Lock USER stack, notify user (LOGLCK) 

5 WARM START (WRMABT) 

Initialize MPC, VERSATEC, and Magnetic Tape 

Initialize network and AMLCs, Output message 'WARM START' 

6 SUPERVISOR MESSAGE ALARM (TlOU) Process USER 1 message buffer. 



PRELIMINARY 8 - 3 FAULT HANDLING 



PRIilOS REV. 19. 1 PRII10S INTERNALS 



USER ABORT FLAGS 
PABORT bit number 

16 TSEALil Time Slice End (set by microcode) 

14 TMQALH Time-out LOGOUT 

13 DISALM AflC disconnect LOGOUT or Operator LOGOUT 

10 IOALH I/O done (Hagtape> MEQATEK) 

9 SWIALH Software Interrupt Alarm (formerly GUTALM) 

15,12)11 Not Used 

FOR EACH USER 

16 TIME SLICE END (SCHED) 

Place process on low priority or eligibility queue 

14,13 FORCED LOGOUT (LOGABT) 

Output message ' TIMEOUT' i or 'FORCE LOGOUT', Signal 'LOGOUT!' 

10 I/O ALARM Call MTDONE 
9 Software Interrupt (SW$ABT) 
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SOFTWARE INTERRUPT HANDLING 
MOTIVATION 

- Due to- increased frequency of asynch events at rev 1?; more 
pressure on quit mechanism. 

- Ring code had to explicitly inhibit process aborts. 
Unexpected exit from many ring routines before completion 
produces non-reliable results. 

- Inhibiting quits mould disable multiple process sibovt events 



IMPLEMENTATION 

- BREAK! code reduced to only handle QUIT!, 

- Software Interrupt modules for rest of process aborts, 

- SWITYP flag word defines which event. 

- New mechanism defaults to inhibiting process aborts in ring 0. 
Enabling quits in ring must now be explicitly performed. 
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SOFTWARE INTERRUPT HANDLING - Routines and Variable 



£ 



BREAK! - enable/disable QUITS aborts in ring 

SWIINT - process abort interrupt enable/disable control 



SETSWI - store event bit in PUDCQM. SWITYP ) ,, ^ * 
SETABT - set user's abort flags 






SWIABT - fault handler for process aborts 

SWFin_ - handles deferred ring aborts on return to outer ring 

SW$RST - called by SWFin_ to reset ROSWIN, ROQUIT 

Variables SWITYP 1 = quit 

2 = logout notification (LON) 

4 = real time watchdog 
'1Q = cpu time watchdog 
'20 = Cross Process Signalling (CPS) 
'40 = forced logout 

ROSWIN - ring software interrupt enable counter 
ROQUIT - ring quit enable counter 
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SOFTWARE INTERRUPT HANDLING 

When process abort happens while inhibited in ring 0; 
SWIABT detects need to defer process and does following: 

1. Turn current frame into pseudo condition frame as indicated 
by SWITYP. 

2. Check concealed stack to see if outstanding faults. 

3. Call CRAWL_ to build SWFIi1_ frame on outer ring stack; 
but do not execute crawlout. 

4. Set ROSWIN (or ROQUIT) to -1 (process abort deferred), 

5. Hark SWFIM_ frame if concealed stack frames outstanding, 
When execution returns from ring 0; 5WFIJ1_ is entered. 

1. Cleanup concealed stack if needed. 

2. Invoke SWSRST to reset ROSWIN and ROQUIT; 

if SWITYP non-zero call SETABT (multiple events) 

3. Signal condition. 
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UII FAULT 

XVRY, ZMV, ZMVDi ZFIL. and ZCM are simulated in a routine 
called R0U1I in segment 6. (only if operating on a P400/350) 
All other UII faults in ring HALT the machine. 

ACCESS VIOLATION 

SIGNALS called to output the message "ACCESS VIOLATION RAISED AT ...." " 

STACK OVERFLOW 

Call STKOVF, SIGNAL! 'STACKJVF!', message 'STACK-OVFS RAISED AT . . . , " - 

SEQUENT FAULT 

GETSEG called to either allocate a segment or SIGNAL! called 

to output the message "ILLEGAL SEGNO! RAISED AT ........ " 

POINTER FAULT - Ring 
1). Save user state 
2). Pick up faulting pointer 
3). Return if pointer is greater or equal 
4). Erase fault bit 

5). Error message if pointer is equal 0; or invalid 
6). Call SNAP!3 to get new pointer 
7). Snap link 

8). If not found error message 
POINTER FAULT outputs the message "POINTER-FAULT! RAISED AT .... " 
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PAGE FAULT 

Whenever a user program Issues a virtual address the hardware 
translates this address into physical memory using the STLB. An STLB 
'miss' may be caused by failure to find the desired entry; or by a 
reset valid bit for the desired entry. During full translation; the 
HMAP entry will indicate if the desired page is not in memory. 

The page map entry contains a marker bit (bit 1) indicating whether 
or not the required page is held in memory. If the page is in 
physical memory; translation proceeds but if the page is not in 
memory; a PAGE FAULT occurs. 

This fault causes a branch in execution through the user's page 
fault vector to the fault table code. A CALF is then executed in the 
page fault catcher. (All page faults are handled by this routine). 



The page fault catcher will: 
1). 



Save the user state i_l&^S P$ , Wy-0 
2). Check recursive page fault. If so HALT 

Allow warm start but process takes fatal error. 
3). Call PAGTUR 

4). Increment page fault counter 
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PAGTUR 



Stc? [k^.^ 



The routine PAGTUR handles the page management in PRIMOS, Page-in is 
on demand/ page-out is o^sed on an approximate least-recently-used 
algorithm with pre-paging.\ 



/ 



PAGTUR uses the page-maps as fyllows: 
1). HMAP segment 22 



12 3 4 5 



16 



V ! R 


U 


S 


^ pk^ 



(V) Valid Bit, P^e in memory (1 

(R) Referenced bit 

(U) Unmodified/bit 

(S) Inhibit OftCHE for this pagi 

5-16 Physical page number 



yes) 



if the page is not in memory bits 3/5 define 

00 not in/ copy on disk 

10 not in/ no copy on disk 

01 in transition/ coming in 

11 in transition/ going out 
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2), U1AP segment 33 



1 2 3 4 5 



16 



Lock 


F A RECORD INDEX 



BITS 
1,2 lock number (0 = unlocked) 

3 First time bit (to keep page in memory longer) 

4 Use alternative paging disk 

5-16 Record index (Address of a track containing 3 pages) 
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3). IflAF (segment 14) 



16 



17 



32 



If entry LT page does not exist (missing memory) 

If entry EG page is available 

If entry GT page is in use (indicates the owner of the page) 
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CPTR is stepped during page-out 

FPTR is stepped during page-in 

CPTB pointer to first pageable page 

CPTE pointer to last pageable page 
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RING 3 FAULTS 

The fault vector in the user's PCB for ring 3 

points to a fault table called R3FALT in segment 13. 

The following fault handlers exist in segment' 13: 

RESTRICTED INSTRUCTION FAULT 

SVC FAULT 

UII FAULT 

ILLEGAL INSTRUCTION FAULT 

ARITHMETIC FAULT 

STACK OVERFLOW FAULT 

POINTER FAULT 

Any other fault occuring in ring 3 is handled by the 
ring fault handlers. 

RESTRICTED INSTRUCTION FAULT 
Call PTRAP in ring 

1). Read violating instruction and analyze. 
2). If illegal or HALT instruction call SIGNAL! 

to output the message 'PROGRAM HALT AT 

3), Simulate trapped I/O instructions for 
System console* CRTs 
Paper tape reader/punch 
Card reader 
Control panel 
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Enter SVC fault handler to initiate SVC and pass arguments. 

Uii FAULT Csm^e ^ /&jl$)> 

Enter UII routine in segment 13 to software emulate the instruction. 

ILLEGAL INSTRUCTION FAULT 

Enter illegal instruction fault handler which signals 'ILLEGAL-INST*'. 



ARITHMETIC FAULT 



/ QtjLj &SfTV AMfa /Q^fU^t^ crtj J 



Enter arithmetic fault handler which signals ARITHS condition. 

STACK OVERFLOW FAULT 

Call STKQVF. (Automatic Ring 3 Stack Extension) 

Examine. stack frame prior to fault frame and determine stack root 
segment. 

If root is '6002 then STKJX is called. 

Otherwise condition 'STACK JVF$' is signalled as before. 

STK_EX 

Attempts to get a DTAR 3 dynamic segment. 
If not possible calls FATAL$. 

Otherwise fixes up stack extension ptr to point to new segment; 
and returns. 
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POINTER FAULT 5 ^ n fr-s 
1). Save user stats 

2). Clear fault bit r • p • \ 

3). If bad pointer - signal POINTER-FAULT! C^^' X^C 1 J 
4). Loop through library table (LIBTBL). Call the handler if it 
exists* if not signal 'LINKAGE-FAULTS'. The first entry in 
the table is a pointer to the ECB for HCS$ in seg 5. This 
routine scans seg 5 for the Direct Entry Call. 

The second entry in the table is a pointer to the ECB for 
SNAPI3, This routine scans a list of ring 3 direct callable 

ECB'S. 

Further entries in the table are pointers to the ECBs for 
the shared library fault handlers. 

5). The fault handlers return the address of the ECB for t\\& 
original call. The link is then snapped. If the handlers 
fail to find the ECB then signal 'LINKAGE-FAULTS', 

6). In the case of shared libraries the fault handler checks 
location 4 of the stack segment to make sure the local data 
of the library package has been loaded into the users 
segment '6001. 
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DIRECT ENTRANCE CALLS 

The direct entrance call mechanism provides a form of dynamic linking 
usiny the standard Procedure Call <PCL) instruction (V - Mode only) and the 
indirect memory address pointer. The purpose of the direct entrance call is 
to orovide an efficient mechanism that allows application programs (also 
system programs) to make calls to procedures that are part of the operating 
system or shared libraries without the overhead normally associated with 
other methods such as the Supervisor Call <SVC) instruction. The advantages 
of the direct entrance call are; first the same procedure can be shared by 
ali users on the system without the need to have a unique copy for each* 
thus wasting valuable memory space* second* since the address linkage to 
the procedure is not made until execute time a program that makes use of 
these procedures does not have to be relinked for a different revision of 
PRIMOS where the location of the procedure may change. 

Part of the implementation of this mechanism requires a special form 
of onject module be loaded into the library that is searched when doing the 
program load. This object module is created by assembling a PMA program 
that has the form SEC 

DYNT procedure name 

END 
This object module triggers special action by the SEG loader when it is 
resolving the address linkages for called routines. When SEG encounters 
this structure it puts an indirect pointer in the link frame of the calling 
procedure that has the fault bit set and points to a location in the 
procedure area where SEG has put the name of the direct entrance call and 
the number of characters. That is all that happens at load time. 

At execute time when the call is made to the procedure the fault bit 
causes the hardware to detect a pointer fault and the pointer fault handler 
is entered. The pointer fault handler attempts to resolve the address 
linkage to the called procedure by searching through various lists of ECBs 
or entry points to the direct entrance callable routines. If it finds the 
one it wants it puts the address pointer to the procedure back in the 
address pointer that originally caused the pointer fault* erases the fault 
bit and reexecutes the call which now proceeds as usual. If it doesn't find 
it or finds that the pointer is bad it raises a condition and returns 
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Direct Entrance Calls 
I. Ring 

Entry point definitions - PRIMOS>INSERT>GATES. INS. PMA 

Entry points reside in - PRIMOS>KS>SEG5. PMA 

List Name - SEG5 

Memory Location - Segment 5 

Search routine - HCS* <PRIMOS>KS>HCS*. PMA) (first entry in SEG5) 
I. Ring 3 

Entry point definitions - PRIM0S>INSERT>R3ENTS. INS. PMA 

Entry points reside in - PRIM0S>R3S>SNAP*3. PMA 

List name - LIST 

Memory location - Segment 13 

Search routine - SNAP*3 (PRIM0S>R3S>SNAP*3. PMA) 

._I. Shared Library 

Entry point definitions - HTAB < Each library that is to be shared 

has a table called HTAB in it's source 
file UFD) 

Entry points reside in - DIRECV>R3P0FH. PMA (there will be a copy of 

this procedure* each with it's own HTAB/ 
for each shared library installed. ) 

List name - HTAB _ 

Memory Location - Segment 2xxx (same segment library resides in) 

Search Routine - R3P0FH (DIRECV>R3P0FH. PMA) 
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LIBTBL 

LIBTBL is a table that contains address pointers to the search 
routines for the various direct entrance callable "packages". It is used 
by the Ring 3 fault handler in attempting to resolve the direct entry link. 
The fault handler does a PCL indirect through each of the entries in LIBTBL 
whicn invokes each of the various search routines in order until the link 
is made. The order of search is Ring DECs first, then Ring 3* then shared 
lioraries. A typical LIBT3L is shown below <this is a Rev. IS. 3 version). 

In Segment 13/1434 



1434/ 
1435/ 
1436/ 
1437/ 
1440/ 
1441/ 
1442/ 
1443/ 
1444/ 
1445/ 
1446/ 
1447/ 
1450/ 
1451/ 
1452/ 
1453/ 
1454/ 
1455/ 
1456/ 
1457/ 
1460/ 
1461/ 
1462/ 



5 

O 

13 

400 

62050 

1170 

62014 

41170 

62014 

1170 

62021 

1165 

62001 

1170 

62057 

1170 

62071 

1170 

62121 

1170 

62026 







Pointer to SEG5 (first ECB is HCS*> 
Pointer to SNAP*3 



Pointer to R3P0FH 



End of LIBTBL 
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Section 9 - Interrupt Handling 
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CLOCK PROCESS 



The clock interrupt is treated like any other device interrupt. An 
address C63) is presented by the controller. The hardware 
interprets this location as the address of the Phantom Interrupt Code 
(PIC) in Segement 4 for this device. 

The PIC executes an INEC which acknowledges the interrupt/ clears the 
Active Interrupt flag, and does a NOTIFY to CLKSEil 

The clock process will then be entered. 
1). Handle PBHIST. 
2). Reset location '61. 

3). Display memory location selected by switches. 
4). Increment ONE-MINUTE timer. 
If timer equals 0, then 
A), reset timer 

B). set USER 1 KINALM Abort Flag and NOTIFY ASRSEH 
5). Increment timer 2 (Paper Tape Punch) (1/75 second). 

If zero, reset clock and call BRPDIM (if chars in buffer) 
6). Increment Timer 3 (Digital input) 

If zero, reset timer and enter DIGDIJ1 
7). Increment timer 4 (ASR) (1/30 or 1/10 second). 
If zero, reset clock and call ASRDIM. 
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CLOCK PROCESS 
8). Increment timer 5 (1/10 second). 
If zero i doing the following: 
A). Reset clock 

B). Display Segment number in lights 
0. Update clock ring 
D). Handle USER timer semaphores 
E). Increment Timer 9 (DISK) 

If zero, reset clock and NOTIFY DSKSEM 
F). Increment Timer 10 (SMLC) 1/2 second* if zero 

1. Reset clock 

2. Set USER 1 SHALT! Abort Flag 

G). Increment Timer 11 (Gross Network) 10 second, if zero 

1. Reset clock 

2. Set USER 1 NETALM Abort Flag 

H). Increment Timer 12 (PNC) 1 second. If zero, 

1. Reset clock 

2. Set USER 1 NETALM Abort Flag. 

I). Increment Timer 13 (Remote USER I/O) 1/2 second 
If zero, 

1. Reset clock 

2. Set USER 1 NETALU Abort Flag 

J). Increment Timer 14 (4 second). If zero, 

1. Reset clock 

2. Update Date and Time for TIlflQD 
9). Wake up PNCDIH if PNC configured 

10). Call CENDIH, CENDIM2, PTRDIM if there are chars in buffer(s). 
11). WAIT CLKSEH. 
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THE QAMLC/IC3 Driver (AHDH1/ASYDIM) 



The AUG mill configure itself to drive up to eight controllers using 
twite addresses '54, '53, '52, '35, '15, '16, '17 and '32. The 
default configuration can be changed using the AilC command at the 
system console or in PRIMOS. COMI 

AHLC [PROTOCOL! LINE [CONFIG] CLUIQRD3 
PROTOCOL 

TTY terminal protocol (default protocol) 

THAN transparent protocol 

TTYUPC upper case output protocol 

TTYNOP ignore this line- (used for assigned lines) 

LINE The AF1LC line number (octal) 

CONFIG See line configuration table. 

LWORD See LWORD table. 
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LINE CONFIGURATION TABLE 



12 3 4 5 6; 


1 8 < 


1 10 11 1 


.2 : 


3 


4 15 16 


Line no. 












Character 


(bit 4 is lsb) 












length 


set to 












0-5 bits 
10-6 bits 
1-7 bits 


Data Set 












11-8 bits 


control^- 














1 for modems 










^ Type of parity; 


loop line*-' 








'— * Parity disable/ = 


(for testing) 






Set to 


p 


— >Stop bits 


Line Soeed = 1 bit 


- 110 baud 1 = 2 bits 


1 - 134. 5 baud 


1 - 300 baud 


1 1 - 1200 baud 


1 - program clock - default 9600 baud 


1 1 - 75 baud 


1 1 - 150 baud 




1 1 


1 - 


1800 baud 









= odd 
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LWORD TABLE 



1 2 3 4 5 6 




9 10 11 12 13 14 15 16 
USER NUMBER 

CHECKi Enable error detection 
1 = Parity or IRB overflow 
(send a NAK if parity or irb overflow sensed) 



DSS hi/low, toggle for bit 5 



* DSS enable, Check carrier, simulate XON/XOFF 
("buffered" or "reverse channel" protocol) 



1 = When XOFF or DSS enabled, flag to show XOFF 



= no xon/xoff 

1 = xon/xoff 



= LF echoed for CR (only if half duplex) 

1 = LF not echoed for CR 



= Full duplex 

1 = Half duplex 
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THE AilQ : Notes on the diagram 



1). There can lie up to 8 boards. 

2). All lines are configured into group 0. 

3). The speeds of the lines are set by default as follows: 
All lines except the last line on the last hoard 

- 1200 baud; Normal TTY protocol 
Last line - 110 baud, TTYNOP 

4). The last line defines the rate at which all lines are scanned 
for both input and output. The default is 10 times per second. 



ICS 



1). There is no special line to determine the line scan rate. 
The rate is fixed at 10 times per second. 

2). The ICS boards use DUG for input instead of tumble tables. 
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.,, * fttri CDNFIG DIRECTIVES W LU 



namlc, ntusr^ 






sudrate 

L 0^ 



AMLCLK baudrate ^ f^ 



AMLTin [ticks! [disctiie] Egracetimel^ 7 

, (default = 2, 3410, 0) 

DTRDRP W'i-vx Jenu-aia Ua n4 d«vy Oift 

%{**** Ptvk Ue U« ovCt 

DISLOG { NO ! YES } j ^ a*****' (default = NO) 



AMLIBL" tLn^J^u^<* (default = '60) 



ICS INPGSZ Csizel (default = 77) //} jujl, 

ICS JUMPER Lspeeda] [speedb] Cspeedcl 
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M f 



t.U<HY 



CONFIG DIRECTIVES j User Buff ers 
NAMLC number-of-buffers (default = 0) 

1 cW*w\ AW - BUF anilc "" line dinq-sjze^ #^ 



^. 1 &*6fe6S*W ^ 



f^/. ,_ __ 

^"fAMLBUF user-buff-no in-buff-size out-buff-size * <1 fr* fa^ 
b ) AMLBUF assigned-buff-no in-buff-size out-buff-size -J^^^i., 

AMLBUF amlc-line 200 (128) 300 (192) 40 (32) 
default: user-no = amlc-line + 2 
SINCE: ( ^seMuf^ngVjse^ ~^T\ M^s irw 



THEN: amlc-line = user-buff-no (if user-no is default) 
assigned-buff-no-1 = NTUSR + NRUSR - 1 (rotating pool) 



REMBUF in-buff-size out-buff-size (default = 200. 300) 
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SCHEDULING OF USERS ^ f^i 



cx~ 



UiK -/>«£ /**?* 

PRIHOS scheduling is based on two criteria. ^ ft^ /a ^ &^ 

1). PROCESS EXCHANGE - &rr /^w£-m ^ 

2 ) . BACKSTOP PROCESS ( SCHED ) / cfc™ r^ ^ d < u< 

The process exchange mechanism is implemented in firmware and uses 
the ready list/wait list philosophy described earlier. 

SCHED; also known as the backstop process: 

1). Responding to requests for users to be placed on one of 

three queues and allocating a time-slice. 
2). Deciding the sequence of processes ?Uai on the READY LIST. 

SCHED maintains three basic queues using semaphores. 
A). High priority (interactive users) 
B). Eligibility 
0. Low priority (compute bound users) 

When a user process returns to command leveL the listener is called 
to a invoke a new command level and CL$GET is called to read in the 
command line. C1INS is then called to read in the characters. C1INS 
will wait on BUFSEM (there is one BUFSEH semaphore per user) and when 
a character is input into the user ring buffer the AHLC driver will 
notify BUFSEH. The user will continue to use ClINf to input 
characters until a <CR> character is detected. 
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On detecting <CR> CLIGET calls SCHED to place the user process on the 
HIGH priority queue and to allocate a full time-slice. SCHED scans 
for high priority users before any others and a user in the high 
priority queue will he placed on the ready list and scheduled to run 
with a timeslice of 3/10 sec. At the end of this period the process 
will fault and he placed on the elgihility queue. The backstop 
process scans the elgibility queue after the high priority queue and 
eventually the user will be notified and moved on to the ready list 
with another timeslice of 3/10 sec. 

This sequence of events continues until the full 2 second time-slice 
has elapsed. The process is then placed on the low priority ^B\i2 
appropriate to its priority level. The backstop process maintains 
five semaphores in the low priority queue for this purpose: 

Supervisor level (level 4) 

User level 3 

User level 2 

User level 1 (default user level) 

User level 

The backstop process will schedule users on the low priority queue 
after both the high priority and the elgibility queues hm been 
exhausted according to the following flowchart. 



S^fW* - <\<L PW dm^ em 4o List 
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USER PRIORITIES AND TIE-SLICE 



The following operator command is available for changing user 
priorities and time-slice. qjL^ u^^ u^ 

CHAP [-USERNO/ALL3 [PRIORITY] [TIME-SLICE] feV 
USERNO Is in the form -nn or ALL 
PRIORITY Integer to 3 (default = 1) 
TIME-SLICE Length of time-slice in tenths of seconds. 
^ £m££ ( ^Z^^> Mans reset to the system default (2 sec. ) 
P n«A*i u* J^^^f^^if omitted the time-slice is unchanged. 
If both priority and timeslice are omitted; then priority and 
time-slice are set to the system default values. 



STAT US Displays the priority of users not at user level 1. 

LOGOUT Resets priority and timeslice to defaults. 

ELIQTS Is used to modify the elgihility time-slice from the 
~~~ system console. This mill affect all users equally. 



ELIQTS [<eligibility_timeslice>3 (default = 3/10 sec. ) 
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I 




MAXSCH \ ui aLl y\t 



Previously, MAXSCH mas determined by indexing into an array of 
values; 0*0i1i2i3i4i4. The value of the index mas the memory size 
in 32K units. If there was more than 256K then MAXSCH would be 4. 



MAXSCH is now calculated as follows: 



SlA 



<S^ 



t 

7 



MAXSCH = (megabytes jfjneiory + 3) * x + y /Wrsvt 

where, x is 1.2 if there exists an alternate device on a 
\t mm^ /S ■ different controller than the primary twice, 

" £i y i5 l if CPU iS a P85 °' /WV^ ^ ^ , 

™ ° otherwise it is 0. pn A^u U Ay***** 

The optimal value of MAXSCH is application dependent hence there is 
no hard and fast formula to determine its value. Therfore* it js a 
jonfi iurablej araineter. 

rule of thumb: 

MAXSCH = Phusical-Memoru-Size - PRIMOS-loded-memoru 

average-job-size 
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USER PROFILES 
MOTIVATION 



- To provide secure user registration. 

- Provide central database to store per user attributes. 

- Provide mechanism to define a group of users with 
similar attributes. 



IMPLEMENTATION 

- Rev. 19 PRIJIOS validates users at login; all users 
must be registered BEFORE they can login. 

- All profile information stored in the Sys tem Administrator 
Database {SAlTufdTT ^ai^m^M) 

- SAD is manipulated by EDILPROFILE utility. 

- Access to SAD controlled by ACLs. 
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USER PROFILES - DEFINITIONS! 



User-id — A 32 character name uniquely identifying user. 

Login Password — A 16 character string known only to the 
owning user. Supplied at login to validate user-id 
Stored on the disk encrypted. 

Project — A collection of users with similar system attributes. 

jqstem _Adminis trator (SA) — The user resposible for 
administering the profile database. 

Project Administrator (PA) — A user delegated administrative 
powers over a particular project. 

Initia l Attach Poin t (ORIGIN) — UFD where a user is attached 
after successful login. Need not be a top-level ufd. 

ACL group, — A symbolic name which may be used in an ACL The 
user's profile defines group membership. 

Project 'Limits' — The set of parameters which the PA is allowed 
to administer. Currently a list of ACL groups only. 

Profile — The set of parameters defining per user or per project 
attributes. Currently a list of ACL groups and ORIGIN. 
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USER PROFILES - SAD FILES 







Project 
FiLe CMPF^ 
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S3r^ 



Group 
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User ' 
VaLidati on 
FiLe CUVF; 
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Directory 



SA •' RW PA « R SREST« NONE 



SA.-ALL SREST: LU 



















Master 




Project 


(/v_) 


Project 
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Prof JLe 




VaLidati on 


Profi Le 




Pointer 
FiLe 
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CMPP} 




(PPPF3 




tpvn 







Project 

Data 

FiLe 

cpdfi 



Backup 
Dir- 
ectory 



SA-'RW PA-'R 



SA -'ALL PA« LURW SRESV NONE SA'- ALL 

PA--DALURW 
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USER PROFILES - SAD FILES 
MPF -Jj ASTER PROJECT FI LE 

Contains one 16 word entru for each project on system 

(not ordered) C 31 CJm ^^ ' ~~ " 

ACCESS: SA:RW PA: R $REST: NONE 
del project jd char (32) based; 

r 

MGF - MASTER GROUP FILE 

Contains a 16 ward entry for each ACL group on system 

(not ordered) 

ACCESS: SA:RW PA:R $REST:NONE 

del groupjame char (32) based; 

UVF - USER VALIDATION FILE 
Contains a 16 word header. 



Contains a 48 word entry for jach user on system. 
User entries are hashed by User I.D. 
ACCESS: SA: ALL $REST:LU 
RWLOCK: NONE 
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USER PROFILES - SAD FILES 

del 1 vf Jeader based, /# Header for validation files(UVF,PVF) #/ 
2 freejtr fixed bin (31)i /* Current length of file */ 
2 oflojtr fixed bin (31); /# Location of overflow area #/ 
2 adminjtr fixed bin (31),/* Pointer to entry of SA/PA #/ 
2 entryjize fixed bin, 

2 tablejize fixed bin, /# Size of prime bash table */ 
2 bucketjize fixed bin, /* Size of a bucket in table */ 
2 entriesjsed fixed bin, 

2 overflows fixed bin, /* Current number of overflows */ 
2 bits, 

3 ggrps bit (1), /# System supports global groups #/ 
3 pgrps bit (1), /* Project supports groups #/ 
3 projects bit (1), /# Projects exist */ 
3 nojds bit (1), /# SAD is not ACL-protected */ 
3 nojulljw bit (1), /* Null passwords not allowed #/ 
3 forcejw bit (1),/* Don't allow password on login line */ 
3 mbz bit (10), 
2 version fixed bin, /* EDITJROFILE version number #/ 
2 reserved (3) fixed bin; 
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USER PROFILES - SAD FILES 

del 1 uvfjntry based; 

2 user jd char (32)i 

2 password char (16); 

2 dftjrojectjtr bit (16) aligned; /* Pointer into HPF #/ 

2 sitejsvd (4) fixed bin; /* Reserved for site use #/ 

2 lastjoginjate; /# Date of last login */ 

3 year bit (7) unaL /* Year (mod 100) */ 

3 month bit (4) unaL /# Month */ 

3 day bit (5) unaL /* Day */ 
2 lastjoginjime fixed bin; /* Guadseconds since midnight */ 
2 rsvd fixed bin; /* Reserved for future use #/ 
2 group jtr (upjaxgrp) bit (16) aligned;/* Pointers to HQF */ 
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USER PROFILES - PROJECT FILES 
MPP - MASTER PROJECT PROFILE 

This file defines the project 'limits'. 
Currently valid groups for this project. 
One 48 word entry. 
ACCESS: SA:RW PA: R $REST:NONE 

/# Master Project Profile (WPP) */ 

del 1 mpp_entry based /* Only one of these per project */ 
2 limit jsvdj (16) fixed him /* Reserved for accounting */ 
2 liuiitjsvdj (16) fixed bin, /* " " " */ 
2 groupjtr (inppjaxgrp) hit (16) aligned;/* Pointers to HGF #/ 
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USER PROFILES - PROJECT FILES 

PVF - PROJECT VALIDATION FILE (aka. User Profile Pointer File - UPPF) 
Contains a 16 word header (like UVF header). 
Contains a 48 word entry for each user in the project, 
All pointers point to the Project Data File (PDF). 
Entries hashed by User I.D, 
ACCESS: SA:ALL PA: LURW $REST: NONE 

PPPF - PROJECT PROFILE POINTER FILE 

This file defines the Project Administrator; 
and the 'Default Project Profile'. 
There is one 48 word entry like the PVF entry. 
ACCESS: SA: ALL PA: LURW SREST: NONE 

/* Project and User Profile Pointer Files (PPPF and UPPF [PVF]) */ 

del 1 ppfjntry based; /# One in PPPF/ one per user in PVF #/ 
2 user jd char (32); 

2 originjtr bit (16) aliped; /# Pointer into PDF #/ 

2 processjirjtr bit (16) aligned; /# Pointer into PDF #/ 

2 sitejsvd (8) fixed bin; /# Reserved for site use #/ 

2 rsvd (6) fixed bin; /# Reserved for future use #/ 

2 groupjtr (upjaxgrp) bit (16) aligned; /# Pointer into PDF #/ 



J RELIi1INARY 11 - 9 USER PROFILES 



PRIMQ5 REV. 19.1 PRMQS INTERNALS 



USER PROFILES - PROJECT FILES 
PROJECT DATA FILE (PDF) 

Used for initial attach point and project based group names. 

Contains the actual data pointed to by the PPPF and PVF. 

Consists of one 16 word header followed by data blocks. 

There are two types of data blocks: 

Name block - 16 word (groupjame or namejfjnejathnamejevel), 
Pathname pointer block - A 16 word array of 1 word pointers 
to name blocks elsewhere in file. Each array describes one 
pathname. Each pointer points to name of 1 level of pathname. 
Max. of 16 levels. Used for origin. Null ptr at end-of-list. 

ACCESS: SA: ALL PA: LURW $REST:NONE 

del 1 pdf Jeader based; 

T free jtr bit (16) aligned, /* Current length of file */ 

2 pathnamejount fixed bin, /# Number of pathname blocks #/ 

2 groupjount fixed bin, /# Number of group name blocks */ 

2 limitjount fixed bin, /# Number of limit blocks #/ 
2 reserved (12) fixed bin; 

BACKUP SUB-UFD 

This sub-uf d is used to store copies of all project 
files while project is being 'rebuilt' 

ACCESS: SA:ALL PA: DALURW $REST:NONE 
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Section 12 - Login/Logout 
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MOTIVATION 



NEW LOGIN MECHANISM 



- Support user registration 



- Old login poorly structured 

- Old login code difficult to maintain 



ADVANTAGES 



- User registration 



- Login/Logout code separated 



no longer involved 



- Re-coded in PLP 
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OLD LOGIN MECHANISM 



TERMINAL USERS 



LISTEN (ring 0) 

1 

DOSSUB 

/ \ 

LOGIN RLOGIN 

I 

INITI3 



PHANTOM USERS 



UNLOAD (in TWAIN or PHMSEM) 

I 

LOGIN 

I 
INIT$3 



PRELIMINARY 12-3 LOGIN/LOGOUT 



PRIMOS REV. 19. 1 PRIHOS INTERNALS 



NEW LOGIN flECHANISlI 



TERMINAL USERS 



STDfCP LISTEN (ring 0) 

login \ / normal 

over LISTEN. LOQOICP (ring 3) login 

login f^ $) \ / 

LOGIN$ 

RLOGIN NLOGIN 

remote^ I 

INITIU 

I 

INITS3 




PHANTOM USERS 



UNLOAD (in THAIN) 

i 
i 

PHLOGIN 

I 

INIT$U 

I 

INITS3 
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NEW LOGIN MECHANISM 



NPX SLAVES 



- Started up from BINIT, 



- NLOGIN used to perform validation for different naming spheres, 



NETMAN [ y£ UffiJ u: (Pu^^ ^<J Sim^ - rt^_J^^ 
- Started from NETQN during initialization. 



') 
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NEW LOGIN KECHANISN 



LISTEN - ring zero listener 

- collects characters to form line 

LOQOfCP - logged-out command processor 

- parses command line 

- calls LOGQCPL to lookup commands in 
LOGOCMT - the logged-out command table 

- executes commands or types 'Login please. ' 

LOQOCP1T - logged-out command table 

valid commands: login; delay; usrasr* 

date; dropdtr 

LOGINS - validates login 

- login over login allowed; not sysusr 

- calls CLIPIX to parse login command 

- calls RLOGIN if going remote 

- calls NLOGIN if local 
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NL09IN 


- main login routine ^ U^d**™* 






- makes 'any$' handler 






* calls logout if login over login 






- allocates unit table (UTALOC) 






* checks maxusr 






* prompts for user jd; password/ project/ 


if required 




- reads 'SAD' files 






- validates userjd/ password; project 






- setup upcom data 






# setup utype 






- setup ACL groups 






* setup initial attach point 






* initialize cpu; i/o counters, etc. 






* build dummy login line for external log: 


in 




* call LOGJNIT 






# call INITSU 






- special checks for FAN I 





* These steps are NOT performed for NPX slaves 



LOGJNIT - initialize PUDCQI1 variables: 

limits* watchdogs/ erase/ kill/ time-slice/ priority 
terminal characteristics 
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NEW LOGIN HECHANISH 



INIT$U - initialize PUDCOH variables: 

date; vrtssw* asrcmd; famsem/ injracejeriod 

- initialize NPX databases 

- setup unique i. d. for logout notification (UID$BT) 

- open logout notification wm 

- send login message to user/console 

- return all segments 

- allocate segments 4000, 6002 

- restore external login (EXTLOQ) 

- call INITS3 

INITI3 Ring Q 

- initialize ring 3 stack root 

- setup CLDATA variables 

- initialize static on-units (INSQUS) 

- turn my frame into condition frame 

- crawlout 
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NEW LOGIN MECHANISE 



INITI3 Ring 3 

- NPX slaves call SLAVER 

- make special 'any*' handler 

- run external login 

- revert 'any$' handler 

- if logging out; call FATAL$(e$logo) 

- if CPL phantom start CPL program 

- call INITIP for tty users 



INITSP - attach to I. A. P. 

- find LOGIN, (.rum . cpL .comi; .save) 

- execute LOGIN. 
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NEW LOGIN HECHANISil 



PHLOGIN - main phantom login routine 

- if slavei netman and date is set 
or if login over login call boot 

- if top level ufd of cominput treename = FAH 
switch lognam to FAN 

- reset cpu* i/0; etc. 

- apply suffix rules to treename (SRPHAN) 

- setup CPL arguments 

- attach home 

- release phantom lock 

- setup utype 

- call INITSU 
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The system will prompt for a password even if the user id provided is 
invalid. If either the user id or the password is invalid; the user 
will be told that one of them is incorrect* hut not which one. 

If the SAD is set to force passwords* users who proyide the password 
on the login command line will not be permitted to login* even if the 
password supplied is the correct one. 

The password supplied in response to the prompt is not echoed on the 
terminal. It is stored in the PVF in encrypted form. 

The SAD must be an ACL directory in order to enable active ACL groups. 

The user will be prompted for a project if either s/he is not 
specified as having a default project* or s/he is not a registered 
member in the default project that is listed for that user. 

A user's project based ACL groups will only become active if they are 
in the MPP 'limit list. ' 
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OLD LOGOUT HECHANISH 



Normal and Forced Phantom TTY Request 

LOGQ$$ CI INI 

\ / 



LOGIN 



INITI3 (for external login) 



NOTE: Login over login handled internally within LOGIN (tricky ! ) 
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NEW LOGOUT HECHANISH 





LOGOUT 




4r 

LOGO$$ 



CHNf PTRAP /M/U ^ 



PHTTYREQ 



v / 

LOGOUT 



LQJATAL 
I 






INITS3 ~ Writes f^reU^< L *) ^ 

i 
FATAL! 

I 

LOJATAL 

1 

LO CLEAN " faAu»t(i ^fp^—^ 
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NEW LOGOUT MECHANISM 



LOGOUT, - ring 3 command moved from DOSSUB 

- handles normal and forced logout commands 

- parses command line 

- calls LOGO$$ 

LOGO$$ - for forced logout 

- validates and calls SETABT 

- for normal logout calls LOGOUT 

LOGOUT - if logged out return 

- don't allow phantom login over login 

- force tty output om comi off 

- reset tty characteristics 

- pass any outstanding messages to user 

- build logout message 

- if phantom put message in 1. o.n. queue 
otherwise close l.o.n. queue 

- type message at user/console 

- call LOJATAL 

PHTTYREQ - send message to console 
(PHTTYR) - call LOGOUT 
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NEW LQ9QUT MECHANISM 

LOJATAL - make any$ handler 

- close file units 

- unattach home^ current; origin (LOJATCH) 

- free semaphores 

- free dptx devices (ODUNDO) 

- free rje devices (RJUNDO) 

- free assigned devices 

- if netman call NETDWN 

- if FAH I do special cleanup 



/ 



\ 



Normal; Forced; Phantom Abort 

- 'wait. . . ' for remote users 

- return all segs 

- allocate segs 6002; 4000 

- restore external login (EXTLQG) 

- inhibit r3 quits 

- call INITS3 (never returns) 



Login over Login 

- close coiuo 

- if using FAH I tell FAH I 

- disconnect from network 



FATAL$ LQ Key 
-call LO_CLEAN 
- disconnect from network 

(XCLRA5 



Action determined bg keg passed in as argument. 
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NEW LOGOUT PECHANISF! 



FATAL$ - unwind rO stack 

- rebuild our frame 

- unlock all rO locks (UNLKFS) 

- r3 quits off 

- if e$logo key call LQJATAL - doesn't return 

- if logged out call rO LISTEN 

- if phantjrr key call PHTTYREO 
otherwise call INIT$3 uiito error key 

LO_CLEAN - return segs (not dynamic ones for slave) 

- free attach points (LQJATCH) 

- switch comi and como off 

- if using FAH I tell FAH I 

- send logout notification if message is built (LON$S) 

- close l.o. n. queue (LONfC) 

- close CPS down (CPSSRG, CPSSCA) 

- clear userjd* project 

- set utype = -utype 

- clear groups 

- reset per user parameters (LOGJNIT) 

- if remote user clear v. c. (X$LOGO) 

- deallocate unit table (not slave) 

- clear pending quits 

- drop dtr if configured (DRPDTR) 
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'LOGOUT!' CONDITION - grace period 

PABORT - Takes a process abort SWIALM. 

If SWITYP = '40 (forced logout) then call LOGABT 

LO0ABT 1) force logout* and process is remote 

(cases) 2) force logout (either b y operator or amlc disconnect) 

3) cpu time limit exceeded 

4) inactivity time limit exceeded 

5) login time limit exceeded 

6) in grace period; abort not login time limit exceeded 

7) in grace period/ abort is login time limit exceeded 

When (1) tell network to send logout message to remote end 

When (6) ignore abort 

When (7) log the process out immediately 

Otherwise 

inhibit process aborts 

set login time limit to (gracejeriod) 

clear pcb.abortjlags, pudcom.absave login time limit abort flag 

call SETSWKLOeiNT) &** ^t^w ia-W^ 

enable process aborts 

call SWIABT directly to process LOGINT 

SWIABT - signal the condition 'LOGOUT!' 
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'LOGOUT!' CONDITION - grace period , 

The user could 'make' an on-unit for 'LOGOUTS' to 
ensure a clean exit before the actual logout. 



Otherwise DF_UNIT_ mill simply print the error message call LQGOUf. 

mhen (loginjimit) 

call ioa$ ('login time limit exceeded, 
when (cpujimit) 

call ioa$ Ccpu time limit exceeded, 
when (timeout) 

call ioa$ ('maximum inactive time limit exceeded, 
otherwise - 

call ioa$ ('forced logout, 
end; 
call logou$; 



LOGOU$ (LOGOUT) 

call internal routine LOGMBG to 

print message to system console and user terminal. 
If a phantom* queue Logout Notification (LON) message to spawner. 
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LOGOUT NOTIFICATION 



- Mechanism to pass message to spaiuner when phantom logs out. 

- Simple IPC mechanism. 

- At login LON queue opened for user. 

- When phantom logs out - message added to spanner's queue. 
Spauiner takes Software Interrupt abort (type LONINT). 

- If LON not inhibited, then 'PfUQGOl' is signalled. 

- Default on-unit prints LON message. 

- At logout LQN queue is dosed. 

- Lon istihase in segment 35 manipulated by area management 
package. 



COMMAND — enable/disable immediate notification 



LOgoutJotification -ON ! -OFF 
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LOGOUT NOTIFICATION 



DATABASE 

- 8192 words reserved in segment 35. 

- LQNISEH - semaphore used to single thread all access to database. 

- Database consists of receiver blocks and message blocks. 

- LONISTA points to start of receiver block chain. (Null if 
nobody has queue open. ) 

- Receiver block chain is doubly linked list. 

- Message blocks are doubly linked lists starting at a receiver 
block. 
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LOGOUT NOTIFICATION - Data Structures 



del lonfadr pointer ext; 



/* address first word of lon$ 
area*/ 



del 1 lonljcvr based; 

2 length fixed bin(15), 
2 id, 

3 uno char(6), 
3 usrno fixed bin(15) 
2 nextrcvr pointer, 
2 lastrcvr pointer, 
2 cnt fixed bin(15h 

2 size fixed bin(15), 

2 notify bit(l), 



2 headmsg pointer; 



/* receiver node structure*/ 

/* length of header*/ 

/* unique id*/ 

/* unique number*/ 

/* user no*/ 

/* next receiver*/ 

/* last receiver*/ 

/* number of messages associated 

with this revr*/ 
/* total size of messages for 

this revr*/ 
/* notify flag 

1-notify 

O-don't notify*/ 
/* head of message list*/ 
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LOGOUT NOTIFICATION - Data Structures 



del 1 lon$_msg based/ /* message node*/ 

2 length fixed bin(15)# /* length of this message 

including heater info.*/ 
2 next pointer; /* pointer to next message*/ 
2 last pointer* /* pointer to last message*/ 
2 info(l) fixed bin(15); /* message information*/ 

joynsg (1) = pudcom, cusr 

(2) = time in mins since midnight 

(3) = connect time mins 

(4) = cpu sees 

(5) = i/o sees 

(6) = normal/abnormal logout flag 
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LOGOUT NOTIFICATION 



DATABASE 



LONSSTA 
I . 
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t> 
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w^ Rece/ver Blocks 



i 
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Message 
Blocks 
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GETTING INTO THE COMMAN D LOOP 

It is not apparent how one gets into the command loop initially, thi: 
writeup is an attempt to trace the path of the user process from cold statr 
to login and then into the basic command loop. 

All PCBs for the system processes including user i are initially _ 
defined in KS>SEG4.PMA. In addition a PCB is defined for user 2, this PCE 
is called U02PCB, it will be used as a template for building all other us. 
PCBs needed at cold start time. Initially the stored PB value for U02PCB 
(and hence all others) is set to a value called CLDPB which is a pointer 
to location CLDPB in the module KS>FATAL$.PMA. In addition, the pointer t~ 
the WAIT list that the PCB is waiting on is initially set to point to a 
semaphore called CLDSEM (KS>SEG4>PMA) . At cold start time KS>AINIT.FTN -■ 
makes as many copies of U02PCB as needed according to the number of users 
that are configured by the CONFIG file directives, each one of these PCBs 
for terminal users having it's initial stored PB pointing to CLDPB and i£;_- 
WAIT list pointer pointing to CLDSEM. 

When the SETIME command is issued at the system console the CLDSEM 
semaphore is NOTIFYed for the number of terminal users and each user is 
sent the 'LOGIN PLEASE' message. When each terminal user process is 
notified it moves to the READY list to await execution, when it gets it's 
turn it starts to run from location CLDPB. The instruction at CLDPB is a - 
procedure call to FATAL$ with an argument value of zero. 

FATAL$ initializes stack pointers via a call to UNWIND (KS>TMAIN.Pi»tA / - 
quits are disabled for Ring 3 and enabled for Rings and 1, and finally a 
call to LISTEN (KS>LISTEN.PLP) is made passing it the current user number 
and an argument specifying whether that user is a phantom (bit 1 set) or •_ 
terminal user (all zeros) . 

LISTEN checks to see if the user is a phantom or a terminal user, if 
it's a phantom LISTEN calls UNLOAD (KS>TMAIN.PHA) 

If the user is a terminal user the *OK' prompt is printed at the user 
terminal and CL$GET (KS>CL$GET.PLP) is called to read a command from the - 
terminal. CLSGET calls ClIN$ (KS>C1IN$.PLP) to read the characters in. 

C1IN? uses a function called TF$ANY in KS>TFLIO$.PMA to see if there _ 
are any characters in the input buffer, if not it does a WAIT on the BUFSBJ 
( ) appropriate to that user. C1IN$ also checks for and handle 

special characters such as ERASE and KILL and the carriage return 
character. It just keeps reading in characters (moving back and forth 
between the READY list and BUFSEM until a carriage return character is 
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detected at which point it calls SCHED (KS>SCHED.PMA) to get that user vu< 

on the HIPRIQ. * v 

When the user runs, ClIN$ returns to CL$GET which returns to LISTEN, 
LISTEN calls DOSSUB (KS>DOSSUB.&#H) and passes it the command line which 
contains the LOGIN command. DOSSUB processes the LOGIN command and calls 
LOGIN (KS>LOGIN.BB$*) . U^fOP 

. M 
LOGIN; attaches to the login UFD, prints the login messages on the 
system console and at the user terminal, calls RTNSEG to return all 
segmants except the Ring 3 stack, calls GETSEG to allocate the Ring 3 stack 
(*6002) and Static Mode ('4000) segments, disables Ring 3 Quits, attaches 
to CMDNC0 and executes the external LOGIN program if there is one and 
returns to the login UFD in either case. Finally LOGIN calls INIT$3 to get 
the user from the Ring to the Ring 3 environment. 

XN1T£3 has two phases, a jUng _0 phase , and a Ring 3 phase. The Ring 
phase initializes the users Ring 3~stacK "and commanT4^tne~o r ata (CLDATA) 
structures, makes itself into a condition frame and dummies the return PB 
ring bits to be Ring 3, then calls CRAWL _ (R3S>CRAWL _ .PLP), passing as 
arguments INFIM _ , pointers to the condition frame just built and a zero 
to indicate the depth of the concealed stack??? 

CRAWL _ ; forces Quits to be inhibited, calls HKONU? to make an 
on-unit for ANY$, selects a stack segment for the target ring (Ring3) , 
copies the condition frame from Ring (which would be for INIT$3) , to the 
target ring stack, and eventually returns which passes control to the 
routine that we passed as an argument to CRAWL _ , which is INFIM _ . 

INFIM _ (R3S>INFIM _ .PMA) is the fault interceptor module for gettiw 
to INIT$3 again, this time in Ring 3. It adjusts a few pointers, enables ^ 
Quits, and calls INIT$3. 

INIT$3 is now entered to perform it's Ring 3 phase operation, it will 
do nothing more than return to INFIM _ for the simple case of a terminal 
user logging in. 

INFIM _ finally calls the Ring 3 listener LISTN _ (R3S>LISTEN _ .PLP) 
and sit in a loop calling it forever, so that when the listener returns it 
is just called again (and again and again). 
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Section 13 - Command Processor 
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EXTENDED FEATURES 



- Command processor enhanced to support following extended features: 

, , /v, ■ r 1 ,") fats **&& />**'&**"' 

simple iteration - 0*^ #*'< ' AU ' ; ' —— ' 'a****^ 

wildcard expansion - 

treewalking 

name generation 

special reserved arguments -^^^^f u^^as 

- All above are processed by c.p. itself. 

- Enabling of individual features may be selected in various mays: 

CPL - defined to bave c.p. do simple iteration only 

Static Programs - all features enabled unless special names: 

NW$ - no wildcard or equalname 
NX$ - only simple iteration 

EPF - enabled features specified at BIND time and stored in file 

- Internal Commands - enabled features specified in internal command 

table 
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EXTENDED FEATURES 

CPJTER - main routine which processes extended features 

- makes three passes oyer command line to verify 
syntax* expand iteration; process options 

Pass I - parses command line into 2 level tree 

- each node represents a token 

- 2nd level for simple iteration tokens 

Pass II - repeated while iteration in progress 

- convert tree into simple threaded list 

- expand dot products 

- call DCODJTR to find type of token (e.g. 
wildcard/ wildtree; control; equalname) 

Pass III - repeated while iteration in progress 

- verify only one wildcard/tree per line 

- find location of wild tokens 

- if wildtree call ITRJLDT 

- if wildcard call ITRJJLDC 

- if no wilds call LIGASE 

- free all temporary storage 
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EXTENDED FEATURES 



ITRJLDT - expands wild tress 

- uses control args if supplied 

- calls ITRJLDC if wilcards, or 
'executer' to execute each match 

- recurses when required 

ITRJLDC - expands mild cards 

- uses control args if supplied 

- asks user for verification if reqd 

- calls 'executer' to execute each match 

EGUALIP - special routine for c.p. 

- splits pathnames into dir and entry 

- calls EQUALS to mM names 

EQUAL! - parse generation pattern components 

- process 'commands' in components 

- build generated name by concatenation 
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EXTENDED FEATURES 

LIGASE (internal to CPJTER) 

- follows assembled node list concatenating 
tokens to form command line 

- calls EQUALfP to process name generation 

- call 'executer' routine to execute line 

SN_EXECUTER (internal to STD$CP) 

- executes static mode command 

- calls INVK5PL 

CPLJXECUFER (internal to STDfCP) 

- executes CPL command 

- calls ICPL_ 

INTERNALJXECUTER 

- executes an internal command 

- calls appropriate routine directly 

RUNJXECUFER (internal to STD$CP) 

- executes an EPF 

- calls RIALLC to allocate linkage 

R$1NIT to initialize linkage 
RSINVK to execute EPF 
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I 




MAKE ON-UNITS 

HANDLE SYNTAX SUPPRESSOR 

HANDLE MULTIPLE COMMANDS 

EVALUATE VARIABLES. FUNCTIONS 

REMOVE NULL STRINGS 

PARSE INTO COMMAND AND 

ARGUMENTS 



EXPAND 
VARIABLES 
AND FUNCTIONS 



RESULT 




INITIALIZE 
STATIC ON-UNITS 
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(COMMAND 2) 




yes 



EXECUTE 
COMMAND 





NO 



STATUS = 2 

ccom_status 
-dossus_start; 




YES 



STATUS • 3 
CCOM_STATUS 
=D0S5UB_C0_5TART} 




STATUS « 1 



NO 



STATUS = 
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tCOMMANCTsj 




PASS I 

PARSE COMMAND 

LINE INTO TWO 

LEVEL TREE 



I 



PASS II 

CONVERT TREE INTO 

SIMPLE THREADED LIST 

EXPAND CALL DCOD-ITR 
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Section 14 - Static On-Units 
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STATIC QN-UNITS 



D 



- Static On-Units (SOU) are similar to dynamic on-units. 
Handle asynchronous conditions regardless of the stack state. 

- SOUs are not condition name specific. 
All SOUs are invoked for all conditions. 

SOU must determine it's action by examining the condition name. 

- Ring limiting feature. Cskrp "*™< ^1 ^^ ^ 

- SOUs must return cannot use non-local goto. 

- SOUs exist for duration of command. 

- SOUs may signal conditions. 

- If anJQU sets t he 'crash' flag/ co ndition 'CRASH*' is signall ed. 

- SOU has count associated. May be 'made' multiple times. 
Only removed when count = 0. 
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STATIC DN-UNITS - Routines 



USER ROUTINES 



MKSQNI (sou ecbi code) 



- make a SOU 



RVSON$ (sou ecbi code) 



- revert a SOU 



INTERNAL ROUTINES 



WRL$ (listjtr, nent) 

SQUR3_ (listjtr) 

SORO$ 

S0R3$ 

INSQU$ (key) 



- return pointer to SOU list 

- return pointer to ring 3 SOUs 

- invoke ring SOUs 

- invoke ring 3 SOUs 

- mark both SOU lists empty or 
clear domn SOU list 
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STATIC QN-UNITS - Data Structures 



2 cflags 

3 crawlout bit(l), 
3 continuejyj bit (1); 
3 returnjk bit (1); 
3 inaction jk bit (1); 
3 specific bit (1); 
3 ringjimit bit (2)/ 



/* Condition Frame CFLAQS extended */ 



/* Stop handling condition at this ring 
1 = ring L 2 = ring Q* 3 = ring 3* 



Oj=jo limit - #/ 

3 soujrasb bit (1)/ /* set if sub-system unrecoverable */ 

3 soujompjndld bit (1); /* set if completely handled by SOU #/ 
3 mbz bit (7), 



PUDCQil now includes: 2 static jnjnits (4)/ 

3 soujcb ptr# 
3 sou status fixed bin(15h 



/* ring SOUs #/ 



CLDATA noiii includes: 2 static jnjnits (10); 

3 soujcb ptri 
3 sou status fixed bin(15)/ 



/* ring 3 SOUs */ 
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STATIC QN-UNITS - Hodified Routines 



DOSSUB, STDICP - Hark SOU lists empty 

SIGNLS - If craidloutjieeded ringjimit = 2 

Invoke all ring SOUs /# ring limit */ 
If SOU_CRASH = 1 signal 'CRASH!' 
Else call CRAWL. 

DF.UNIL " invoke all SOUs ~ ^ r^ * * *n ^ 

If SOU_CRASH = 1 signal 'CRASH!' 
If SQU_COIf_HNDLD = 1 return 
If ringjimit = 3 return /# ring 3 limit */ 
otheriiiise handle condition 
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fattier c<ru$u£ mp& ^ 



Section 15 - File System 



PRELIMINARY 15 - 1 FILE SYSTEM 



PRIMOS INTERNALS 



PRIMOS REV. 19. 1 

(T BlSK structures] ] 



A disk drive is divided into one or more partitions where a partition 
is one or more pairs of heads. Each partition m ust contain: 



1). .JfiL 

2). _DSKRAL 

3). BOOL 

4). U FdIoS 

5). badspT 



(Master file directory) 

(Disk record availability table) 

(For initial loading) 

(Initially empty - not actually required) 

(If badspots on the disk) 



Each partition is divided into 1040 word records. 



*Mt 



(_{y 6d hAWm) 



The record header^uiords for storage modules devices. 



Log- n*rt 






The remainder of the record holds data (1024 words) 




fbyStW ^ic Hctvtfot-r; 
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RECORD HEADER FORMAT - 1040 WORD 








1 


REKCRA 


2 




3 


REKPOP 


4 


REKDCT 


5 


REKTYP 


6 




7 


REKFPT 


8 




9 


REKBPT 


10 


REKLVL 


11 




12 




13 




14 


Reserved 


15 





RECORD ADDRESS OF THIS RECORD 

RA OF DIRECTORY ENTRY OF THIS RECORD 
NUMBEUU^^ IN RECORD 
TYPE OF FILE (Only on first record) 

RA OF NEXT SEQUENTIAL RECORD 

RA OF PREVIOUS RECORD 
INDEX LEVEL FOR DAN FILES 
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RECORD HEADER - Notes 



1). REKPOP; The beginning record address (also known as REKBRA) of 
the first record in the file points to the beginning record 
address of the directory in which the file entry appears. In all 
other records/ REKPGP points to the first record in the file. 

2). REKFPT contains the address of the next sequential record in the 
file ori if this is the last record in the file REKFPT is zero. 

3). REKBPT contains the address of the previous record in sequence 
or. if this is the first record in the file REKBPT is set to zero. 

4). REKTYP is valid only in the first record of a file. 
Possible values are: 
Q SAM file, 
1 DAM file 



2^ SAH segment directory 

3 PAH segmen t direc tory 

4 UFD user file director y {Password) 

5 ACL directory 



CSob Piles wiffc ^ vt- f HAUA ^ 



6 Access category 



If the file is BOOT (Record 0) or DSKRAT bit 1 of REKTYP will be set. 
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CHANGES TO THE DSKRAT: 



/Die lJfvK?S 



- CYLS: number of cylinders (tracks) on this device 

- REVJIUM: revision stamp 



del 1 diskjat based; 
2 len fixed bin. 
2 recjize fixed him 
2 diskjize fixed bin(31) 
2 beads fixed bin; 
2 specjits; 



3 dummy bit(14) 



3 crash bit(l); 

3 dos bit(l); 
2 cyls fixed bin* 
2 rev num fixed bin; 



^ 



I* Usually found in LOCATE buffer */ 
/* no. of words in DSKRAT header */ 
/* jhys._ record size (448 or M ttU 
/* number of records jjU ATiiiiM */ 
/# num ber of heads i njartition */ 

/» improper lj shut down last time ft/ 
/* j?QS modi fiedjr perm, broke n */ 
/ft number of cylin ders ( tracks) #/ 
/ft Rev. number ft/ 



2 rat(0:1015) bit (16) aligned) /ftjhe RAT itself ft/ 
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OLD BADSPQT FILE FORMAT qj^ ^ /m^ cnj fixed j fe<- 

- Save memory image. Can be RESTored; then modified with VPSD. 

- N entries in the file. One for each badspot. 

- Each entry consists of: track number and head number. 



NEK BADSPQT FILE FORMAT - MOTIVATION 

- Single record badspots* instead of mapping out a whole track. 

- Allows remapping of M records (COPYJISK; PHYRST). 



IMPLEMENTATION 

- Created byJAKL or FIXJISK w ith -CQNVERTJ9. 

- .COPYJISK and PHYRST do not understand file system structures. 
Create an 'equivalence' block to a goodspot. 

- FIXJISK and J AKEjjnderstand file system structures. 
Adjust the DSKRAT to include remapped badspot entries. 

- PRIMPS d oesji ot crea te^ badspot entries; nor remap badspots. 

- Primos preloader will use new BADSPT file to avoid badspots on 
the paging surface. 
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NEWJADSPOT FILE F0RHAT - Data Structures 



- BADSPT file heater. 

del 1 badsptjilejeader* 

2 badjlkjff fixed bin, /* offset of the 1st badspt blk */ 
2 MBZ fixed bin, /* must be zero #/ 

2 filejize fixed bin, /# size of the badspt file #/ 
2 reserved) fixed bin; 



I - Badspot entry: 



del 1 badsptjlkjeader, 

2 bcidi /* block control uiord #/ 

3 type bit(4), /* block type (badspt blk type = 0) #/ 

3 length bit(12)/ /# length of this block */ 

2 badspt_blk((badsptjlkjeader. bcu. length-l)/2) 

3 track fixed bin, /» track number #/ 

3 sector bit(8), /# sector nu jnber+U for whole track*/ 

3 head bit(8); /# head number #/ 
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NEW BADSPOT FILE FORMAT 



-V 



- Remapped badspot entry: 



del 1 eqvjlkjeader/ 



2 bciiii 
3 type bit(4), 

3 length bit< 12) 



/# block control word 
/* type of this block 
(eqv blk type = 1) 
/* length of this block 



2 eqvjlkdeqvjlkjeader. bcv. length-l)/2) 
3 bad track fixed bin* /* bad track number 



3 badjector bit(8); 
3 badjead bit(8)/ 
3 eqvjrack fixed bim 
3 eqvjector bit(8); 
3 eqvjead bit(8); 



*/ 

*/ 
*/ 



/# bad sector number+1 

/# bad bead number 

/* epivlant track number 

/* equivlant sector number+1 #/ 

/* equivlant head number #/ 



*/ 
#/ 
*/ 
*/ 
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DIRECTORY STRUCTURE 



-A di rectory is a header foL Lowed by a bunc h of entries. 



[){-0 



\s^o 



~ L S 



D i rec 


tort/ 


Header 


Pi 


Le En 


try 


ACL 


hole 


Di rectory 


Entry 



-^ 



/% ^fc /^/V 



-Note i ACLs are embedded /n the di rectory itself. 
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DIRECTORY STRUCTURE 



del 1 dirjdr based/ 


/# dir header entry structure #/ 


2 eeiii like em 




2 oiunerjassinord char(6b 
2 nonjwnerjassword char(6)/ 
2 sparel fixed bin> 
2 maxjuota fixed bin (31)/ 
2 dirjsed fixed bin (31); 


/# Owner password */ 
/* Nonowner password */ 

/# flax Quota #/ 
/# Quota used in this dir #/ 


2 treejsed fixed bin (31)/ 


/* Quota used in whole subtree*/ 


2 recjimejrod fixed bin (31); 
2 prodjtin like fsdate/ 
2 spare2(5) fixed bin; 


/# Record/time product #/ 
/# DTH of record/time product */ 


del 1 ecu based/ 
2 type bit(8h 
2 len bit(8); 


/* Entry control word #/ 
/* Type of entry #/ 
/* Length of entru */ 



replace dirjdrjewt by *01 *b4# 

vacant jewt by 'Q2'b4» 

filejewt by '03'Mi 

acc_cat_ecwt by / 04'b4* 

acljcwt by '05'b4i 



/* ECW types: directory header*/ 

/* vacant entry */ 

/* file entry #/ 

/* access category */ 

/* ACL itself */ 



PRELIMINARY 



15 - 10 



FILE SYSTEM 



PRIMOS REV. 19. 1 PRiriOS INTERNALS 



DIRECTORY STRUCTURE - Entru Tupes 



- Directory Header 

- Vacant Entry: Unused entry (hole) in the directory. 

filejnt. file jnfo. type 

- Normal Entry: Describes a file: SAM 

DAM 1 
SEGSAM 2 
SEGDAM 3 

or a directory: Password 4 

ACL 5 

- ACL Entry: Set of access pairs. 

- Access Category: Named ACL Always points to an ACL entry. 
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SEQMENT DIRECTORY FORMAT ( fW jfv (MXWV^im J^ ^ 




1 
2 
3 
4 
5 



2n 
2n 



BRA 


BRA 1 







■1 


BRA n 



Beginning record address 

of the first file in the directory 

Beginning record address 

of second file in directory 

Null entry 



Beginning record address 

of the last file in the directory 
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SAM FILE — %d *f 



L\AJ\*> 






Mri 



First record- 




Last record 
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DAM FILE (single level) 



? 




PRIMOS INTERNALS 



RECORD 


DATA 
RECORD 1 


Address of 
Record 1 






\ 




Address of 
Record 2 


Address of 
Record 3 


\ \ DATA 




VI 


RECORD 2 




J 

DATA 
RECORD 3 
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DAM file (multilevel) 



LEVEL 2 




ADDRESS OF 
RECORD 1 



ADDRESS OF 
RECORD 2 



L^Wv JamM LfiJ^ Lu*J 
^ n^e M "^ 



LEVEL 1. 
RECORD 1 



ADDRESS OF 
RECORD 1 



ADDRESS OF 
RECORD 2 



ETC 




i 



LEVEL 1 
RECORD 2 



ADDRESS OF 
RECORD N 



ADDRESS OF 
RECORD N +1 



i 
i 

i 



DATA LEVEL 
RECORD 1 




DATA LEVEL 
RECORD 2 



i 
i 
i 



DATA LEVEL 
RECORD N 



DATA LEVEL 
RECORD N +1 



i 

I 
i 

if 
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DIRECTORY STRUCTURE 



Normal Entry 



-ACL_POS 



Position in the directory of the ACL protecting this object, 

if specific protection then pointer is to an ACL. 

if category protection then pointer is to access category. 

if default protection then pointer is zero. 

fat ton** ^ e 





D i rectory .Header 






a. f i ie 










notes. ufd 




private. ocat 






ACL 






ACL 








b . f / Le 


— 



1 t /^rxn t <^h 



prxtft-C 



-Note • the ACL protecting this directory Lives in the 
directory along with the entry describing this directory. 
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DIRECTORY STRUCTURE - Normal Entru 






- Normal entry for a file or directory: 



del 1 filejnt based* 
2 ecu like ecu, 
2 bra fixed bin (31), 
2 sparel(3) fixed bin* 
2 protec bit (16)/ 
2 acljos fixed bim 

2 dtfl like fsdate, 

2 filejnfo, 
3 longjat_hdr bit (1), 
3 dumped bit (1), 
3 dosjiod bit (1), 
3 special bit (l)> 
3 rwlock bit (2), 
3 spare bit (2)/ 
3 type bit (8), 

2 sew fixed bin/ 

2 name char (32); 



/* Structure of file entry 
/* bra of file 

/# Protection keys 
/* Position of ACL assumes 
dir <= 64k 



*/ 



*/ 



*/ 



*/ 



/# '8000' b4 
/* '4000' b4 
/* '2Q0Q'b4 
/* '1000'b4 
/* Bits 5-6 
/* Bits 7-8 



file is a long RAT #/ 
has been backed up */ 
modified under DOS #/ 



Special file 
Concurrency lock 
Unused 



/* Bits 9-16: File type 
/* Length of name subentry 
/* Name of object 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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DIRECTORY STRUCTURE - ACL Entry 



FQRHAT OF AN ACL: 



- An ACL consists of three parts: 

A userjd section 
_An ACL groups section. 
_Ajr est section. 

- Each section is a set of accessjairs. 

- An ACL_ may he up t o J55 word s in length. 

- Each access pair specifies ACL rights for: 

;;liiTfT (not implemented ) 

Ring 3 
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DIRECTORY STRUCTURE - ACL Entry 



I 



- Directory entry for an ACL : 

del 1 acljnt based; /# Dir entry for an ACL */ 

2 ecu like ecw,C ewrto l U * U ^7* See above */ 

2 userjount fixed bin* ! /* Number of user entries #/ 

2 groupjount fixed bim i /* Number of group entries #/ 

2 version fixed bin, /* Version number of structure #/ 
2 sparel fixed bin/ 

2 groupjffset fixed bin* /* Relative position of first 

group entry */ 

2 restjecesses like accesses; /# Rights for $REST #/ 

2 owner jos fixed bin; /* Position of owner in dir */ 

2 dti like fsdate, /# Date/time last modified */ 
2 spare2 fixed bin; 

2 entry like coded jeeess; /# See below #/ 
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DIRECTORY STRUCTURE - ACL Entry 



- Format of a single access pair: 



del 1 codedjecess based* 


/* Entry in an ACL 


#7 


2 sen) fixed bin* 


/* Length only 


*/ 


2 access like accesses, 


/# (access) 


#/ 


2 spare(2) fixed bin* 






2 id char(32) van 


/# <id> */ 





del 1 accesses based, 

2 ringl like accjits* 
2 ring3 like accjits; 

del 1 accjits based; 
2 protect bit(l), 
2 delete bit(l), 
2 add bit(l), 
2 list bit(l), 
2 use bit(l), 
2 execute bit(l), 
2 write bit(l), 
2 read bit(l)i 



/* A 16-bit access word #/ 



/* Access bit definition */ 
/* Directory accesses — Protect */ 

/* Delete #/ 



/# File accesses — 



10 



a 



/* Add #/ 


n 


/* List #/ 


u 


/# Use */ 


^ 


Execute #/ 


^ 


/# Write */ 


b 


/# Read */ 


((, 
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DIRECTORY STRUCTURE - Access Category Entry 

Anjcces j category is a named ACL. 

It is jjoi nter to an AC L entry. 

Each file system object protected by the category points to the 
access category entry; not the ACL itself. 

The name field of an access category is always padded to 32 
characters in order to reduce directory fragmentation. 



del 1 acc_cat_ent based) /# access category directory entry */ 
2 ecu like ecu* 
2 sparel(6) fixed bin* 

2 ad jos fixed bin; /# Position of ACL itself */ 

2 dtm like fsdate, /# Date/time last modified */ 

2 filejype fixed bin; /# For compatibility with normal entry */ 

2 sew fixed bin; /# Length of name subentry */ 

2 name char (32); /* Name of object; (padded to 32 chars)*/ 
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UNIT TABLES (fi/« om^J 



OLD METHOD 



- Unit tables statically allocated at cold start (AINIT). 



- 2048 file units per system. 



NEW METHOD 

- Per-User unit tables allocated/deallocated dynamically. 

- Constrains working set of unit table databases to what is 
actually being used. 

- Vital statistics: 

3247 file units available per system 

16 guaranteed per user (default) 
1 system unit per user (unit #0) 
3 attach points (borne; current; initial) per user 
127 maximum 'usable' file units per user 
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UNIT TABLES - Definitions 



- A unit table (ut) is a list of pointers to unit table entries. 

" A hash table is a set of pointers to linked lists of unit 
table entries. 

" A unit table entry (ute) desribes a file system object that is 
currently in use via the file system. 

" A file system object is a data file; directory or access category. 
These objects may reside on a local or a remote system. 

- UTBTff is the unit table bit map, 128 bits (8 words). 

- UTBITS is the unit table entries bit map, 3247 bits (203 words) 

Each ut or ute has one bit corresponding to it: 
= in use 
= 1 available 

The first available ut or ute is always allocated. 
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UNIT TABLES 



The following steps are performed in order to use a file system object: 

- Allocate a unit table: 

for system user at cold start (BINIT) 
for terminal users during login (NLOQIN) 
for phantom users by spawner (PHNTMI) 
for slaves when they are awoken (NPXPRC) 

- Allocate a unit table entry when a file system object is 'opened'. 

- Access the ute: 

by the file system via the hash table, 
by a user program via the unit table. 

- Deallocate the ute when the object is 'closed'. 

- Deallocate the unit table: 

for terminal/phantom users during logout (LO_CLEAN) 
for slaves when they go to sleep (NPXPRC) 
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UNIT TABLES fa **<**> 

(fM uaJ(T$) 
Data Structures 



pudcom. Lusr / ndexed_bu, unit 



L/5RCMS 



Unit Table Cut) 



Qt system unit 
V 

usafa Le f f Le un J ts 

7 27-' 

7 28-* curren t attach point 

129' home attach pofnt 

7 30^ inftfgl attac h point 



UTBTMP 







7 



7007177777777777 



77777 77777777777 



«A 



UTCOMS 



7 



\ 



\ 



7777777777777777 
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UNIT TABLES 

Data Structures 



Idev/bra-*~UTHASh 



urcom 




257 



ute 



\ 



F5>UTE5EG 
Segment 40 



20 UORDS 



UTBIT5 




3247 







2-202 



\ 



1070101177117711 
1111711177771111 

\ 



203 



\ 



\ 



1117777771111111 
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r mjjmES - Types of UTEs 
Files: SAM, DAM, SEGSAM, SEGDAM 

Directories: Password protected 

ACL protected 

Attach Points: Password protected 

ACL protected 

Access Categories 

Remote Units (of any type) 



New Elements of a File/Directory UTE 

ACCESS ACL access allowed for this user on this file/dir. 

(Owner/Non-owner access is mapped to ACL access) 

QUOTA JLKJTR Pointer to the quota block chain for this file/ 

directory to maintain quota information. 

DIRJLKJTR Pointer to the directory block for the parent of this 

file/directory to maintain record usage information. 
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UNIT TABLES - Data Structures 



- Files and directories (not opened as attach points): 



Del 1 utcine based; 

2 vstat like statusjits* 
2 bra fixed bin (31). 
2 ldevno fixed bin* 
2 curja fixed bin (31); 
2 reljiordno fixed bin* 
2 reljecno fixed bin (31); 
2 rmlock bit(8)» 
2 access like accessjits/ 
2 parentjra fixed bin (31) 
2 posjnjarent fixed bin; 
2 hashjhread fixed bin; 
2 potajlkjtr fixed bin; 
2 dirjlkjtr fixed bin; 
2 dauijdxja fixed bin (31) 
2 spare(2) fixed bin; 



/* File/Directory Unit Table Entry #/ 
/# See beloy #/ 

/# BRA of file #/ 

/# logical device number #/ 
/* current r.a. in file */ 
/# position within current record*/ 
/# ordinal record no. in file #/ 
/# Read/write concurrency lock #/ 
/s uccesses a jlowed on_ file #/ 
; /#lRA of ^mUifKt^ 6 ^^/ 

* — 'fife 

/# position in parent #/ 

/# bash thread */ 

/# Quota block pointer */ 

/# Directory block pointer #/ 

/ /# current r.a. in DAM index #/ 
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UNIT TABLES - Data Structures 



del 1 dirjtcme based; 

2 vstat like statusjits; 
2 bra fixed bin(31), 
2 Idevno fixed bin/ 
2 curja fixed bin(31)/ 
2 reljordno fixed bin; 
2 rel recno fixed bin(31h 



/# attach point Unit Table Entry #/ 
/# See definition below #/ 
/# BRA #/ 

/# Logical device number #/ 
/# current r.a. in file #/ 
/# position within current record*/ 



/# ordinal record no. in file 
/# Access rights 



*/ 

*/ 

#/ 

#/ 

#/ 

/# position in parent */ 

/# bash thread #/ 

/# Quota block pointer #/ 

/# Quota directory block pointer #/ 

/* BRA of directory containing ACL #/ 

/# Position of ACL in dir #/ 



2 access/ 

3 ringl like accessjits/ /# in ring 1 
3 ring3 like accessjits/ /# and ring 3 

2 parent Jra fixed bin (3D* /* BRA of parent directory 

2 posjnjarent fixed bin* 

2 hashjhread fixed bin» 

2 guotajlkjtr fixed bin; 

2 dirjlkjtr fixed bin; 

2 adjra fixed bin (31)/ 

2 acljos fixed bin* 

2 spare fixed bin; 
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Ned) Elements of an Attach Point UTE 

ACCESS. RING1 ACL access available under ring 1. (not implemented) 
ACCESS. RING3 ACL access available under ring 3. 

(Access from ring is ALL). 

QUOTA JLK_PTR Pointer to the quota block chain for this directory. 

DIRJLK_PTR Pointer to the directory block for this directory 

(not the parent). 

ACLJRA BRA and word offset pointing to the ACL protecting 
and ACLJOS this directory. 



Remote Units 

- Remote units are a 'pointer' to a remote ute. 

Del 1 remjte based; /# UTCOHI entry for remote units #/ 
2 vstat like statusjits; 

2 master_to_slave fixed bin; /# NPX Master-Slave Happing */ 

2 realjdevno fixed bin; /# Ldev (normally in Idevno) */ 

2 negative jode fixed bin; /# -(node no. of remote system) #/ 

2 packname char (32); /# NPX Packname */ 
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del 1 statusjits based; 


/# VSTAT definition 


*/ 


2 modified bit (1), 


/* modified 


*/ 


2 sysuse bit (1); 


/# open for system use 


*/ 


2 shtbit bit (1), 


/# device shut down 


*/ 


2 nojlose bit (1); 


/# special file^ not closed by C 


-ALL */ 


2 spare bit (1), 






2 filejype bit (3), 


/# Defined below 


*/ 


2 openjode bit (8); 


/# Accesses which file is opened with #/ 


filejype: 






samjtype by 0» 


/* File types: SAM file */ 




damjtype by 1; 


/* DAM file */ 




samsegjtype by 2, 


/* SAM segment directory #/ 




damsegjtype by 3; 


/* DAM segment directory */ 




dirjtype by 4* 


/# Directory */ 




acljirjtype by 5; 


/* ACL directory */ 




accjatjtype by 6; 


/* Access category #/ 
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Section 17 - Locate Mechanism 
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BUFFER CONTROL BLOCK (BCB) 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



HASH' 


fHREAD 


...Logical dev Record 
ADDRESS 


._ BRA of file record is in 


Process no. 


Hash index 


User count 


Flag bits 


— — 


— — 






— — 


— _ . 




ADDRESS OF PTW FOR BUFFER 


LRU THREAD FOR 
UNUSED BUFFERS 


lenotti of BCB 



BUFLNK ** '/° '■ 
BUFRA ***+*/ 

BUFBRA 

BUFUSR W titod 7] ^ te 

BUFLAG &»*&> r — ztth^^ 
REKCRA x '— — f" ~~ 



REKPOP 



y<*5 



10 i^ 



}ty£HyC*u\ 



REKDCT 




REKTYP 


/ disk 


REKFPT 


4. record 




\ header 


REKBPT 




REKLVL^ 


y 


BUFPI1P 




BUFTHD 





1FCLEN 



FLAG BITS 16 = BUFFER MODIFIED 

15 = BUFFER IN TRANSITION 
14 = UPDATE MISSED 
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*7c S>wht 



0»-BUFNEW 

DECREMENT 

USAGE COUNT 



FIND Jet BCfl 
ON UNUSED LIST 
t, UNTHREAD IT 



UNHASH FROM 
HASH TABLE 



WIRE PAGE 



SET WINDOW 
CLEAR STBLn 
UPDATE USAGE 
CNT SET BUrNEW 



WRITE OUT 

OLD RECORD 

lr NECESSARY 



READ IN 
NEW RECORD 



(prtn\— 



HASH IN BCB 




UNU1RE THE 
BUFFER PACE 



THREAD 

BCB ONTO 

UNUSED LIST 



IN HASH 

TABLE AT HASh 

ADDRESS 



IN USE ^ 
\N 


Y 




UNTHREAD 

FROM 

UNUSED LIST 










WIRE PACE 
















SET UINDOU 
CLEAR STBLn 
UPDATE USAGE 
CNT SET BUFNEU 





(prtn\ 



° Id r^ruv^J/ 
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ASSOCIATIVE BUFFERS - CONFIG DIRECTIVE 



Previously- there were always 64 associative buffers which resided 
in segment 1. 

Now there can be any where from 8 to 256 associative buffers. 

New CONFIG directive: NLBUF n 

where n = the octal number of LOCATE buffers to use. 

The buffers will reside in segments 50 - 53. 

The 21 word Buffer Control Block (BCB) is wired at cold start. 
The LOCATE buffer is only wired when it is in use. 

The optimal number of associative buffers depends on the system. 
If the LOCATE miss rate is greater than 10 percent; 

NLBUF should be increased until 

However; if PF/S is greater than 10; do not increase NLBUF. 
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Section 18 - Disk Quotas 
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DISK QUOTAS 



MOTIVATION 

- Provides administrative control over disk usage. 

- Quota limits the number of records a single directory or 
directory sub-tree can use. 



IMPLEMENTATION 



- Specifed on a per-ufd basis. 



- Units are physical disk records (2kb), 



- Quota of zero means unlimited record usage is allowed. 



- Quota may not be set on an MFD. 



- Requires rev 19 disk format. 



Note: No temporary file allowance; nor login/out quota. 
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DISK QUOTAS 

Exomp Le 



MFD 



I 



SET -QUOTA ufd.o -MAX 1000 







UFD_A 








— ^^ 




( 




= 70C 


>0, 


'< 


UPC 


L.B 




UPC 


)_C 


(q=700) 






( 


"q=50cT) 



SO ufd_a>ufd_c -MAX 500 



PILP_A 



The quota set on UFD_B is 700 records. 
The quota set on UFD_C is 500 records. 
The parent directory UFD_A has a quota of 1000 records, 

The total records that can be used by 
the entire sub- tree CUFD_A, UrTLB, UFD_C) 
is 7 000. 
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DISK QUOTAS 



Quota and non-quota directories (nay be intermixed in the same 
subtree. 

A quota directory can be subordinate to a non-quota directory; 
and vice versa. 

Two counters are maintained: 
DIRJJSED: number of records used by this directory. 
QUOTA_LEFT: number of records still available to this subtree. 

Each time the DIRJJSED count changes for any directory; 

the quota for that directory must be updated (if there is one). 

Each time the QUOTA J.EFT count changes for a quota directory; 
any superior quota directories must have their quotas updated. 



PRELIMINARY 18-4 DISK QUOTAS 



PRIHOS REV. 19. 1 PRinOS INTERNALS 



DISK QUOTAS - Data Structures 



DIRECTORY BLOCKS (DB) 

- One directory block is maintained for each open attach point on 
the system. 

- The dirjlock contains: 

USE_COUNT: number of open attach points using this block. 
DIRJJSED: number of records used by this directory. 
NQTJIQDIFIED: flag indicating if DIRJSED has changed 

(and info must be written back to disk). 
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DISK QUOTAS - Data Structures 



QUOTA BLOCKS (QB) 



- A quota block is maintained for each open attach point which 
has a quota. 

- A quota block is maintained for each superior directory of an 
attach point which has a quota. 

- These quota blocks are chained together. 

- If two open attach points are constrained by the same quota 
directory(s)* then they will share the quota block chain. 

- The quotajlock contains: 

USE_C0UNT: number of open attach points using this block. 
QUOTA_LEFT: the number of records still available under the 

quota at this directory level. 
PARENT_PTR: pointer to any superior quota directory 

(zero if none). 
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DISK QUOTAS - Data Structures 



del 1 quotajlock based; 
2 usejount fixed bin; 
2 Idevno fixed bin; 
2 bra fixed bin (31); 
2 hashjhread fixed him 
2 parentjtr fixed bin; 



/* Use count #/ 

/* Ldev of directory #/ 
/* BRA of directory */ 
/* Hash thread link to next block*/ 
/* Pointer to superior block */ 



2 quota Jeft fixed bin (31); /* Amount left in tree 



*/ 



1 dirjlock based; 






2 usejount fixed bin; 


/* Use count 


*/ 


2 Idevno fixed bin; 


/# Ldev 


#/ 


2 first _ra fixed bin (31); 


/# BRA 


#/ 


2 hashjhread fixed bin; 


/* Link to next block 


*/ 


2 dtype; 






3 type bit (15); 


/* Type of block 


*/ 


3 notjodified bit (1); 


/* Quota not modified if on 


*/ 


2 dir used fixed bin (31); 


/* Amount used in this dir 


*/ 



The type of the block is maintained in the DTYPE (PARENT_PTR) field. 
The value is -1 for dirjlocks (-2 if modified). 
All other values indicate quotajlocks. 
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MAINTAINING DIRECTORY/QUOTA BLOCKS: 

- Since directory and quota blocks are the same size* they are 
stored in a common area (QBCOMS). 

- Directory/quota blocks are allocated/deallocated in a manner 
similar to unit table entries. 

The bash table is QBHASH. 
The bit map is OBBITS. 

- Quotajlocks are chained (threaded) together according to 
directory level (PARENT.PTR). 

- QBCQMI (QBHASH, QBKENT and QBBITS) are protected by the UTLOK. 

- Up to 2Q48 quota/directory blocks may be in use at any one time. 

- The hash table (QBHASH) has 257 entries which point (up) to 2048 
quota/dirjlocks. Therefore both quota and directory blocks are 
independently threaded together in hash chains (HASHJHREAB). 
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DISK QUOTAS 



QBCOm - fs>seg10.pma Segment 10 
IdQv/bra 

QBHASH 



QBBITS 



7 
2 




257 



O.BKENT 



3-7 27\ 



000007 7777117777 
7777777771777777 

I 



7 28 



\ 



\ 



7777777777777777 



-CJi > 



Quo t a_b Lock 

Cparent_ptrO 

Chash_ thread^ 



-o« 



D/r_bLocfc 



Chash_ thread} 



Quo to_b Lock 

(paren t_p tr.) 

(hcsh_ thread) 



Dir_bLoek 



Dir._bLock 



\ 



\ 



\ 



\ 



Dir_bLock 



Chash_ thread.) 



2048 
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DISK QUOTAS 

Examp Le 



ATTACH to top-LeveL UFD_A -ATSABS calls AT.CLEAN-. 



if UFD_A = quota_d/> 
then allocate. OS 

allocate DB 



MFD 
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DISK QUOTAS 



Exompie 

ATTACH to subufd UFD_C -AT$REL calls AT_CLEAN: 

if UPD_C=quota_d/r 

then a L Locate QB 
if Ur"D_C=new attach point 

then deal Locate oLd OS 
a L Locate DB 
(QB for UFD_A is st/LL in use by our new attach points 



MFD 
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DISK QUOTAS 



ExampLe 



Here is what QBCOMS Looks like after the two attaches! 



QBHASh 

•Of 

IdQv/bra 
OJFD.A) 



QBKENT 



Idev/bra 
CUFD.O 




QB - UFD_A 

(parent_ptr.) 

Chash_ thread} 



DB - UFDC 



(hash_ thread! 



QB - UFD_C 

Cparent_ptrJ 

Chash_ thread} 



7 




2048 
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DISK QUOTAS 



Exompie 



OPEN FILE.A 



-SRCHSS 

a I Locate unit tabLe entry 

set uTE.DIR_BLK_PTR to 
parent CUFD_C) 

set UTE. QUOTA.BLK_PTR to 

first quota parent Cur"D_CJ 

increment U5E_C0UNT 
for DB CUFD_C) 

increment US5_ COUNT 

for QB chain CUFD_C t UFD_M 

CU5E_C0UN7 is now 2 S 

1 for attach + 7 for open.) 



MFD 
i 





UPD_A 










q=7 000 




QB 








' 


r 




J 








UFD C 
q=500 






DB 






QB 




i 


- 






! 






* 








FIL5.A 




UTE 


















I 
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DISK QUOTAS - Example 



WRITE TO FILE J - PRWF$$ calls GETREC: 
DIR .USED = DIRJJSED + 1 
reset NOTJIODIFIED bit 
if UFD_C = quotajir then QUOTA JiFT = QUQTA_LEFT - 1 



TRUNCATE FILE J - PRWF$$ calls TRUNCI calls RTNREC: 
DIRJJSED = DIRJJSED - 1 
reset NOTJIODIFIED bit 
if UFD_C = quota Jir then QUOTAJ.EFT = QUOTA_LEFT + 1 



CLOSE FILE.A - SRCH$$ calls CLOSE: 
if dirJlock.NQTJ1QDIFIED = false 

then update DIRJ/SED on disk (UFD_C) 
update QUOTA J.EFT on disk (UFD_C) 
do while parentjtr O 

update QUOTA_LEFT on disk (UFD_A) 
decrement USE.COUNT for DB (UFD_C) 
decrement USEJOUNT for QB (UFD_C) 
if USEJCOUNT = then deallocate dir/quota block 

(The USE COUNT = 1 because me are still attached to \)¥D 
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DISK QUOTAS 

ExampLe 

ATTACH TO UFD_A -ATS caLLs AT_CLEAN-. 

if UFD_A - quota_dir then 

increment USF.COUNT for QB CUFD_A3 

if UFD_B = new attach point then 

decrement USF_ COUNT for oLd DB CUFD.CJ 

if USE.COUNT - then 

deaL Locate oLd DB CUFD_CJ 
decrement USF_COUNT for QB CUFD_A) 
(this U5E_C0UNT is stiLL 1 
because we are attached to UFD_A2 

at Locate DB CUFD_A) 



DB 



MFD 



UFD_A 
c\=1000 



UFD_C 
q=500 



I 



QB 



FILE.A 
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Section 19 - Attach 
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ATTACH 



- Functionality has changed due to ability to completely exclude a 
user from an MFD with ACLs. 

- Duplicate packnames no longer allowed. 

- Passwords no longer converted to upper case hy attach routines. 

- Attach routines allow ring callers to override access priviledges. 

- New routines: 

TA$ -4 ATCH$$ \ 

\— » ATSABS 
ATS / 

ATSANY 

* AT CLEAN 
AT$HOM 

AT$REL 




AT$OR 
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ATTACH - AT$ANY attach scan 

Do (for each local partition) While (not found) 
("open" HFD of this partition) 
If (have rights to this MFD) 

Then (search for entry with given name) 
If (directory found) 

Then If (have access to directory) 
Then (set new current) 

If (requested to set home) 
Then (set new home) 
Else (insufficient access rights) 
Else (go on to next partition) 
End /* Do While 

If (not found locally) 

Then Do (for each disk in the disk list) While (not found) 
If (disk is remote) 

Then (start remote search list) 

Do While (next disk is on same node) 
(next disk in list) 
(add next disk to list) 
(search remote system with ATLIST through RICALL) 
If (found) 

Then (set up remoteness by Atjdrem) 
End /* Do While 
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ATTACH 



ATJXEAN - Common clean up for ATI routines. 

- Validates new attach point. 

- Releases current attach point. 

- Sets up new current (and possibly home) attach point(s) 

- Allocates new unit table entry. 

- Allocates dirjlock to maintain records used info. 

- If a quota dir# allocates potajlock to maintain quota info. 

- Sets up pointers to the ACL protecting this directory. 
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CALCULATING ACCESS 



WHO IS THIS USER? 

- A user is identified via: 

a unique user jd 

a set of ACL groups the userjd is a member of 

User Id : 

- Stored in the process' UPCQM. 
ACL Groups : 

- Stored in the Active Group Table (AGT). 

- A user may he a member of up to 32 ACL groups. 

- All active ACL group names are stored in the AGT. 

- For each user, there is a 32 word index table. 

- The index table points to the names of the ACL groups that 
process is a member of. 
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ACCESS CONTROL LISTS 



Data Structures 



-ACL Database, Segment 37: 



AGTWX-Act »ve Croup TabL« Irtdvx ACT-Aetfve Croup Tcble 




32 words 




name/ Length 



\ 



\ 




1000 
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PRIORITY ACLS - Data Structures 



- One priority ACL per Idev. 



- Table of pointers to the ACL PA_PTR. 



- ACL is stored in PA AREA. 



- Space is dynamically allocated/deallocated by area manager. 



del 1 pacl_ based; 
2 ecu like eciiii 
2 userjount fixed bin; 
2 groupjount fixed bin* 
2 version fixed him 
2 usejount fixed bin; 

2 groupjffset fixed bin; 



/* Priority ACL (PACL) 



*/ 



/# Number of user entries */ 
/* Number of group entries #/ 
/* Version no. of structure #/ 
/* Number of LDEVs using this 

PACL (not implemented) #/ 
/# Relative position of first 
group entry #/ 
2 restjecesses like accesses; /# Rights for $REST */ 
2 restjcc.valid bit (1) aligned;/* SET if $REST rights valid #/ 
2 dtm like fsdate, /# Date/time created #/ 

2 spare2 fixed bin; 
2 entry like codedjecess; /# like ACLs (ringl/ring3) #/ 
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PRIORITY ACL5 

Data Structures 



■ACL Database, Segment 37 1 



PA__PTR 



Idev 



IdQV 1 



\ 



\ 



\ 



\ 



Idev 6? 



PA_AREA 



area_ptrs 



priori tL/_acL 



\ 



\ 



\ 



\ 



pr iori ty_qcl 



7 50000 
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CALCULATING ACCESS 



WHEN? 



- During an attach operation (ATfABS, ATIANY, AT_CLEAN). 

- During a file gyn operation (SRCH$$). 



HOW? 



- Password owner/non-owner access rights are mapped to ACL rights 



Owner: 
Non-owner: 



HJALU. 
LU 



Read: 


R 


Write: 


W 


Delete: 


D 



a£ maa*&\ h ^ 0lfs 



Priority Access: 



User Id: 



ACL Groups: 



$Rest: 



if priorityjd then 

if user jnjacl then 
get access from pad 
else if userjdjnjd then 
get access from acl 
else if userjemberjf jroup(s) then 

get access for mh member jroup 
logical-or these accesses together 
else if $rest then 

get access from $rest pair 
else no access 
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Section 20 - Miscellaneous 



File System Locli_ 

PRIHOS Segment Usage 

PRIHOS Locked Memory Requirements 

19. 1 I/O Enhancements 

System Limits 

Area Management 
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FILE SYSTEM LOCKS 



The following locks are used by the FILING system and allow a certain 
amount of concurrent access to the FILE system (in priority order): 

FSLOK, Global file system locks 

JJFDLQL JJFD lock 
JJTUM Unit tables lock 

TRNLOK ^Transaction lock 

RATLOK Record availability lock 



Each lock consists of the following data structure: 





COUNTER 






POINTER 








COUNTER 






POINTER 






1 USAGE Counter 1 






I PRIORITY 1 


— ■ 



READER'S Semaphore 



WRITER'S Semaphore 
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FILE SYSTEM LOCKS 
Locks mill allow N readers or 1 writer. 

A writer will wait on the writers semaphore if there are any active 
readers or an active writer. 

A reader will wait on the readers semaphore if there is an active 
writer or if a writer is waiting. 

When the USAGE counter is equal to 
the lock is free (available) 
+N there are N active readers 
-1 there is one active writer 

Priority is used to force an order to avoid deadly embrace situations. 
In general locks are not recursively lockable and an attempt to 
re-lock one already locked by the calling process is disallowed. 
FSLOK isi however; an exception and may be recursively locked for 
reading only. The system maintains for each process a bitmap of the 
locks owned by that process. The depth of recursion for FSLOK is 
maintained. This information is held in PUDCOM (LOKQUN and OWNFS). 
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OTHER LOCKS 



LOCKS (following on from file system locks in priorty order). 



DEVLCK 


DEVICE table in PBDIOS 


SP1LCK 




SP2LCK 


Spare locks 


SP3LCK 




NETLCK 


Network data 


SLCLCK 


Sink driver data 


ilOVLCK 


MGVUTU usage 


SEGLCK 


Segment tables 


PAQLCK 


Page tables and data bases 


DSKLCK 


Disk driver 
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f PRIMQS SEGMENTS - DTAR 



•iA 






clocks i/o windows, DMx control blocks CKS>SEG0. PMA1 

1 (GEN$BUF) 

2 movutu 

3 movutu 

4 PIC, PCBsi fault handlers, checks, SEMCQM, vpsd CKS>SEQ4. PMA3 

5 ring gate segment (GATSGI) [KS>SEG5. PMA3 

6 kernel code and linkage 

7 TFLIOB buffers (TFLSN1) 

10 per-user unit tables, directory/quota blocks, usrcom LSEG10.PMA] 

11 file system code and linkage (LCSEGI) 

12 network system code and linkage (NETSGI) 

13 command loop, and CPL code and linkage [R3S3 

14 PAGCOM, HDRBUF, config, RSAV, FIGCOM, MMAP, tape-dump, 
inarm/cold start code 

15 additional kernel code and linkage 

21 DUG buffers (DMGBUF) 

22 MAPs 

23 SHC map segment 

24 SULC map segment 

25 SMLC map segment 

26 SULC map segment 
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PRIflQS SEGMENTS - DTAR Q continued 



27 network buffers (NETBFS) 

30 network queues (NETBH$) 

31 network (not used) 

32 additional command loop and CPL code and linkage CR3SJ 

33 LMAPs 

34 named semaphores data area 

35 logout notification queues; CPS 

36 additional TFLIQB buffers " (TFLSN2) 

37 active group table/ per-user group list priority acl table 
40 unit table entries (UTBSEG) 



50 associative buffers 

51 associative buffers 

52 associative buffers 

53 associative buffers 



(BUFSEG) 



67 
70 

71 

100 



RJE code and linkage 
RJE code and linkage 

RJE buffers 
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477 



PR HIPS SEGMENTS - DTAR continued 



101 

32 network mapped segments 
140 

141 DPTX code and linkage 

142 additional DPTX code and linkage 

143 (DPTCOM) 
DPTX buffers 

200 

201 (PUDCMS) 

mapped per-process ring stacks 
400 
401 



dynamically allocated by G£TSN$ 
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PRIMOS SEGMENTS - DTAR 1 



2000 




■ 


shared code 


2030 




i 


8 use? segments 


2040 




■ 


shared code 


2170 




* 


8 user segments 


2200 




• 


shared code 


2300 




, 


dynamically allocated by QET5N$ 



2377 
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DTAR 2 
4360 



4377 



PRIMUS SEGMENTS 



dynamically allocated by GETSNI 



DTAR3 
6000 

6001 
6002 
6003 
6004 
6005 
6006 
6007 

6010 



user profile stuff; UPCQM; page fault (wired ring 0) stack, 

SDTs for DTARS 2 and 3, mapped LOCATE buffer ('17600) 

abbrevs* shared library linkage 

CLDATAi ring 3 stack (PUSTAK) 

unwired ring stack 

CPL work area 

global variables 

additional shared library linkage 



dynamically allocated by QETSN$ 



(DYSNBG) 



(DYSNED) 
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PRIMOS LOCKED MEMORY REQUIREMENTS 



LOCKED 






3KW 


4 


4 


6 


16 


14 


4 


22 


2 


33 


2 


OOO 


1 (2 IF NETWORKS) 



PLUS: SEG 4 100 WORDS FOR EACH CONFIGURED USER 

(PCB'S AND CONCEALED STACKS) 
SEG 7 TERMINAL I/O BUFFERS FOR EACH CONFIGURED USER 
(DEFAULT 96 AND 192 WORDS RESPECTIVELY). 

PAPER TAPE, CENTRONICS BUFFERS AS REQUESTED (1KW) 

SEG 12 6K WORDS FOR MDLC 
18K WORDS FOR PNC 
23K WORDS FOR MDLC PNC 

SEG 14 SEGMENT DESCRIPTOR TABLES (DTAR'S and 1 only) 
MMAP 2K WORDS FOR EACH 2MB OF PHYSICAL MEMORY 
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PRIMOS LOCKED MEMORY REQUIREHENTS 



SEG 21 Q DATA BLOCKS FOR EACH CONFIGURED LINE 
(DEFAULT 32 WORDS/LINE) 

SEG 22 HARDWARE PAGE MAPS. 64 WORDS FOR EACH 
USER SEGMENT IN USE ABOVE '1777 

SEG 33 LOGICAL PAGE MAPS, 64 WORDS FOR EACH 
USER SEGMENT IN USE ABOVE '1777 

SEG 6000 PAGE FAULT STACK, IK WORDS FOR EACH LOGGED IN USER. 
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19.1 I/O 



- New LOCATE Mechanism* NLBUF 

- Balancing Primary and Alternate Paging Devices; PRATIO 

- Default Value of HAXSCH; MAXSCH = (m+3) * x + y 

- Reduce Active Users Ming Set 

(CPLIM, LOGLIM from UPCOM to PUDCOW) 

- Using Z-fflQve Instructions 

- Qaie Access M0V32P, (MOVEWS) 

- More Disk Queue Control Blocks (17 instead of 7) 

- Hashed Transaction Locks (1 TRNLOK -to 67 LOCKRH, LOOT) 

- No Page-in on page-aligned page-sized reads 

- SEG Enhancements 

- FORCEW Changes 
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19. 1 I/O ENHANCEMENTS - Using Z-move Instructions 



M0V32P moves N words of data from source to destination. 

Previously; if the length specified is greater than 8 words then 
MQV32P would loop on: double floating loads stores; double loads 
stores; and single loads stores; depending on the length. 

Now; for those CPUs on which the Z-move instructions are more 
efficient (a P750 or a P850) the ZHVD instruction is used. 

M0V32P has been made available to the user from Ring 3 by adding a 
Gate to Seg 5. The name has been changed to MQVEW$; move words. 

The calling sequence: 

CALL MOVEW$ ( ADDR ( SOURCE ) . ADDR ( DESTINAT ION ) i LENGTH) 
where LENGTH is the number of words to be moved. 
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SYSTEM LIMIT EXTENSIONS 



NEW 

- New INITIAL ATTACH POINT per user. 

- 16 Remotejds per user. 

- 16 character login passwords. 

- Maximum number of userjds in a system or project is 7516. 

- Number of DYNAMIC SEGMENTS is 148. 
SEGMENTS 

- Maximum value for NUSEG' is now 240; due to 16 NVMFS segments. 

- Number of shared segments (DTAR1) is now 192 ('2000 - '2277) 

- Number of shared user segments is now 16. 

('2030 - '2037, '2170 - '2177) 

- Effective increase in maximum number of segments; 
paging space now allocated in 16KB blocks (l/8th segment) 
instead of 128KB (entire segment). 

FILE SYSTEM 

- Number of file units is now 3147 

- Utilities do not convert lowercase passwords to uppercase. 

- Maximum number of LOCATE buffers is 256; minimum is 8. 
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AREA MANAGEMENT 



MOTIVATION 

- Provide a single mechanism for allocating/freeing data blocks 
of varying sizes. 

- Area manager automatically relocates blocks (if needed). 

- Used for: 

CPL Variables 

CPL String Management 

Phantom Logout Notification Queues 

Priority ACLs 
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AREA MANAGEMENT 



IMPLEMENTATION 

- Uses fourth's Boundary Tag Algorithm. 

- Define an area of virtual memory to contain the data blocks. 

- ARSIN to initialze the area. 

ARfALC to allocate a block of a given size. 
ARfFRE to free a given block in an area. 

- Condition 'AREA' is raised if: 

the area being initialized is too small/large 

the block being allocated is too small/large 

the area does not begin on an even word boundary 

an allocate or free request is made in an unitialized area 

the area is defective 



PRELIMINARY 20 - 16 MISCELLANEOUS 



PRIMOS REV. 19. 1 PRIHOS INTERNALS 



Appendix A 



Programmed Input/Output (PIO) 
Device Drivers 
MPC-4 
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PROGRAMMED INPUT/OUTPUT (PIO) 
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The purpose of the PIO instruction is to provide one-word 
Input/Output to or from a device. 

1). OUTPUT CONTROL PULSE (OCP) 

The OCP instruction normally performs a control function within 
the selected device control unit. These control functions are 
mandatory for such purposes as: 

A). Starting a clock 

B). Forcing an Input-only mode 

0. Initializing a device (Device Master Clear) 
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PROGRAMMED INPUT/OUTPUT (PIO) 



2). SKIP QN CONDITION SATISFIED (SKS) 

The SKS instruction tests a condition on the selected device and 
if the condition is TRUE/ skips the next instruction, 
e.g. Skip if ready to input/output a character 

3). INPUT TO REGISTER A (INA) 

The INA instruction will input one word into Register A from the 
specified device (if the device is ready). If the operation is 
successful/ the next instruction is skipped. The word may 
contain only one byte of valid data. In these cases the INA will 
input the byte into the least significant eight hits of Register 
A and leave the more significant byte of Register A unaltered. 

4). OUTPUT FROM REGISTER A (OTA? 

The OTA instruction will output the contents of registr A to the 
selected device if that device is ready to accept the data. If 
the output operatin is successful/ the next instruction is skipped. 
The A register may contain only one byte of valid data. 
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PROGRAMED INPUT/OUTPUT (PIQ) 

The FUNCTION CODE further defines the purpose of a PIO instruction. 
OCP Function Code indicates control operation. 
SKS Function Code indicates that a condition is to he tested. 
OTA Function Code selects destination for word from Register A. 
INA Function Code selects source of data word into Register A. 

DEVICE 

The 6 bit device number selects one of the 64 possible devices. 
The PIO instruction is recognized by the device with the selected 
address. Normally each control unit has a unique address but 
some respond to as many as four device addresses. 

NOTE: The OCP, SKS, OTA, and INA instructions are restricted and 
are available only in R and S modes. 

The EIO instruction (used in V mode) replaces the PIO instructions. 

The effective address of the EIO is executed as one of the PIO 
instructions. EIO is a restricted instruction and sets the 
condition codes to indicate the success or failure of the 
specified operation. The EIO should be followed by a BCNE #~2 
instruction. The EIO instruction is always two words long and 
never skips. 



PRELIMINARY A - 4 APPENDIX A 



PRIMS REV. 19. 1 FRIHOS INTERNALS 



DEVICE DRIVERS 



PRINCIPLES INVOLVED IN WRITING DRIVERS 

1). ASSIQN/UNASSIGN Logic 

A). Add device name to DEVCOH 
B). Fix table sizes and indices 

2). INITIALIZATION ROUTINE (Cold Start?) 
A). Lock driver and buffers 
B). Turn on the device 

3). USER INTERFACE 

A). Add SVC front end 

B). Fix SVC class tables 

0. Add direct entrance call (seg 5) 

4). VALIDITY CHECKS 

A). Assigned 

B). Authorized user 

0. Initialization of device 
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DEVICE DRIVERS 



5). I/O CONSIDERATIONS 
A). DMA, DMC, DMG, DMT 

B). DMX channel assignment 

0. Buffer allocation - Mapped or not 

D). Interrupt Phantom in seg 4 - Communication with driver 

6). STRUCTURE 

A). Separate process - synchronous or asynchronous mith user 

execution. 
B). Need for buffering. 

7). WARM START REQUIREMENTS. 
A). Initialization 
B). PABORT logic 

8). I/O COMPLETION 
A). Unmap I/O 
B). Release locks 
C). Release user 
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EXAMPLE DRIVER (MTDIM) 
(called by user and runs as part of the user's process) 

i). Validate unit number 

2). Validated user* if not same as present wait on semaphore 

3). Lock controller if serial reusable 

4). Set up information for phantom interrupt code. 

5). Initialize controller if not already done. 

6). Validate arguments. 

7). Set up DMA/DnC channels 

8). Call MAPIO 

9). Start up operation 

10). Return to user. 

INTERRUPT PHANTOM 
1). Reset mask 
2). Set MTDQNE abort flag 
3). Notify other users if waiting on controller lock semaphore. 

MTDQNE 

1). Called from PABORT 

2). Get controller status 

3). Return information to user 

4). Call UMAPIO 

5). Notify same user if waiting on MAG TAPE semaphore 

6). Return to PABORT 
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NPC4 SUPPORT 



MOTIVATION 

- Provides a standard PIQ/DMx interfacing mechanism. 

- Device independent driver in Primes (ring 0); T$QPPI/GPIDIM. 

- Device dependent code in ring 3; Primes rev independent. 



IMPLEMENTATION 

- MPC4 is a hardware implementation of the QPPI concept. 

- User microcodable controller: 

Microcode maintained in ROM, or 

Downloaded to RAM from disk at system coldstart. 

- Primos support for two MPC4 controllers; addresses 75 and 76. 

- Each controller can support up to four devices. 
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FUNCTIONS 



HPC4 : General Purpose Parallel Interface 



1 - Read block 

2 - Write block 

3 - Read word 

4 - Write word 

5 - Wait/poll for interrupt 

6 - Load interrupt mask register 

7 - Load communication region address register 

8 - Execute device-dependent OTA 

9 - Reset device 

10 - Load device timeout register 

11 - Release communication region 

100001 - Execute OCP. (Restricted) 

100002 - Execute SKS. (Restricted) 

100003 - Execute INA. (Restricted) 

100004 - Execute OTA. (Restricted) 
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MPC4 - General Purpose Parallel Interface 



USER CODE 

- Assign/Unassign logic. (QPIONF) 

Assign device GPm n = 0. .7 

Wires CPIDIH. 

Initializes controller status. 

- Subroutine interface to DIM* TSGPPI. 

Builds a unit data block (UDB). 
Notifies CPIDIH to process it. 
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HPC4 - General Purpose Parallel Interface 



PRIMS CODE 

- Initialization code. (QPIINI) 

Check for controller and verify it. 
Loads microcode. 

Sets up controller data block (CDB). 
Allocate segment i/o windows. 

- Device Interrupt Manager. (GPIDIM) 

Notified by TIGPPI and PIC. 
Performs tasks specified by UDBs. 

- Warm Start Code. (GP1PBW) 

Re-initializes controller status. 
Cleans up any DMA transfers in progress. 
Fixes up UDB servicing. 
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Appendix B - Process Exchange 



PRELIMINARY B - 1 APPENDIX B 



DATE: March 29, 1976 PE_T-232 

TO: Programming and Engineering Staff 

FROM: M. L. Grub in 

SUBJECT: P-400 PROCESS EXCHANGE AND NEW PROTOCOLS 



I. Process Exchange 

A. Data Bases 

1. Ready List 

2. WAIT Lists 

3. Process Control Block (PCB) 

B. Instruction Primitives 

1. WAIT 

2. NOTIFY 

C. Dispatcher and Register File Management 

1. Ready List Maintenance 

2. Register Set Assignment 

3. Fetch Cycle Trap 

II. Traps, Interrupts, Faults, Checks 

A. External Interrupts 

1. Operation 

2. Special Instructions < IRTN, INOTIFY) 

B. Faults 

1. Data Bases 

2. CALF 

3. Fault Handler 

C. Checks 
III. Register Files 

IV. Control Panel 
V. CP Timer 
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I. PROCESS EXCHANGE 

The Process Exchange mechanism is composed of three data 
bases and two basic instruction primitives. The data bases 
are the ready list* wait lists* and Process Control Blocks 
<PC8>. The basic instruction primitives are WAIT and NOTIFY. 
In additioni there is an independent mechanism for 
controlling the usage of two register sets which is related 
to, but not part of, the ready list data base. 

A. Data Bases 

1. Ready List 

The ready list is a two— dimensional list structure used for 
priority scheduling and dispatching of processes. The entire 
ready list data base (excluding live registers) and all PCB's 
are contained in a single segment. The segment number of 
this segment is contained in a 16-bit register called OWNERH. 
Within the segment, all pointers and addresses (except fault 
vectors and wait list pointers) are 16-bit word number 
quantities. 

The two-dimensionality of the ready list is achieved with a 
linear array of list headers for each priority level composed 
of a Beginning of List (BOD pointer and an End of List (EOL) 
pointer. 

Each pointer is the 16— bit word number address of a PCB (in 
the same segment as the ready list). The PCB's on each 
priority level list are forward-threaded through a 16-bit 
link word, and as many PCB's as desired can be threaded 
together on each priority level to form the ready list. A 
process' priority level is both determined by and encoded as 
the address of a BOL pointer in the ready list. Priority 
order is determined by arithmetic comparison, i. e. , smaller 
numbers (addresses) are higher priorities. As a result, 
priority level list headers must be allocated in contiguous 
memory at system startup time. 

The end of the ready list is determined by a BOL containing a 
1 (PCB addresses must be even). An empty level is indicated 
by a BOL containing 0. Figure 1 is a picture of the ready 
list structure. The 32-bit registers PPA (Pointer to Process 
A) and PPB (Pointer to Process B) are a speed-up mechanism 
for locating the next process to dispatch. PPA always 
contains both the level (BOL pointer) and PCB address 
(designated level A and PCBA) of the currently active 
process. PPB points to the NEXT process to be run when 
process A 'goes away'. PPA not only points to the currently 
active process, but, by definition, level A is the highest 
level in the system. It is possible for PPB and PPA to be 
'invalid'. This condition is indicated by a PCB address of 



F=A 




Ready LI si-: 



All pointers are I S-o ft word number pointers within tine FC3 
segment. The segment number is contained In the high portion 
of the CWNE3 pointer within each register set. 

A I I FC3 start addresses must be even (bit 16 * 0). The end 
of the ready list is marked with a EOL entry = t. 



FIGURE 
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0. It is important NOT to disturb the level portions, 
especially level A since/ even if invalid/ level A indicates 
the highest level that WAS in the system and therefore 
determines where in the ready list to begin a scan. if 
necessary (PPB invalid)/ for the next process to run. In a 
completely idle system/ both PPA and PPB will be invalid and/ 
upon completion of the ready list scan, the u-code will go 
into a 'wait for interrupt' loop. 

It is important to notice that there is no word number 
pointer to the first priority level in the ready list. The 
ready list allocator. which starts the process exchange 
mechanism, knows where the list begins and. during execution, 
level A (in PPA) will always point to either the highest 
level currently in the system or the last known highest level 
and. hence, acts as an effective ready list begin pointer. 
In addition/ level B will always be higher than the second 
level to run. That is. a PCB can never be on a level higher 
than level B unless it is the only PCB higher than level B 
(i.e.. level A). 

Two 'queuing' algorithms will be implemented far the ready 
list/ either FIFO or LIFO queuing. 

2. WAIT Lists 



Every PCB in the system will always be somewhere. If it is 
not on the ready list. then, by definition, it will be on a 
wait list. A wait list is defined by a 32-bit semaphore 
consisting of a 16-bit counter (C) and a 16-bit word number 
BOL pointer. Since the ready list and all PCB's reside in 
one segment (OWNERH). and only PCB's go onto wait lists, a 
segment number is not needed in the semaphore. However, 
semaphores themselves can be anywhere and. in general, are 
NOT in the PCB segment. The structure of a wait list is 
shown in Figure 2. Notice that the last block on the wait 
list contains a link word. Notice also that the semaphore 
contains only a BOL pointer. 

The 'queuing' algorithm for wait lists is process priority 
queuing. That is. the priority level of a PCB will determine 
where on the wait list the PCB will be queued. For PCB's of 
equal priority, the algorithm becomes FIFO. 

3. Process Control Block (PCB) 



The contents of the PCB aT9 shown in Figure 3. The PCB can 
be broken into the fallowing logical sections which are 
ordered as shown: 
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a. Control 

- level (pointer to BOL in ready list) 

1 - link (pointer to next PCB or 0) 

2/ 3 - SN/WN of Wait List this block is currently on 
<SN*0 indicates on ready list) 
4 - abort flags used to generate Process Fault 
when PCB is dispatched. 

Current bit assignments 1-15: MBZ 

16: process i 
nterval 

timer ove 
rf low 
5, 7 - reserved 

b. Process State 

8, 9 - Process elapsed timers (must be maintained 

by software that resets the interval timer) 

10* 13 - DTAR2 and DTAR3 (never saved, always 

restored) 

14 - Process Interval Timer with 1. 024 msec 

resolution 
13 — Reserved 

16 - Save mask - used to avoid saving and 

restoring registers =» 

Bits 1- 8: GR0-GR7 (2 words each) 

9-12: FP0-FP1 (4 registers. 2 
words each) 

13-16: Base 
Registers(PB,SB,LB, XB) 

17 - Keys 
18,33 - GR0-GR7 
34,41 - FP0-FP1 

42,49 - Base Registers (PB, SB, LB, XB) 

Note that although all the registers are assigned 
locations within the PCB, only non-zero registers 
will actually be saved which results in a compacted 
list which can only be determined by the bits in the 
save mask. In general, the saved registers (those 
not equal to 0) will be between words 18 and 49. 
The order of the registers, however, is fixed as 
above. 

c. Fault (See section on Faults for a description of 
the use of this portion of the PCB) 

50,59 - Fault Vectors: SN/WN pointers to fault 

tables for Ring 0, Ring 1, 
Page Fault and Ring 3 fault 
handlers 

60,62 - Concealed Fault Stack Header 

63,.. - Concealed Stack - 6 word entries. (This 
stack need not start at word 63). 
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B. Instruction Primitives 

There ar* two basic instruction primitives for the process 
exchange mechanism: NOTIFY and WAIT. In addition, NOTIFY 
has two variants. These instructions, similar to Djikstra's 
P and V operators, are essentially 'interlock' mechanisms. 
These instructions are three-word (48-bit> 'instructions' as 
follows: 

Instruction < 16-bit universal generic) 
32-bit pointer to semaphore address 

As suggested by the names, WAIT is used to wait for an event 
<CP, time, unit record device available, whatever) and NOTIFY 
is used to signal that an event has occurred. In particular, 
a WAIT is used to wait for a NOTIFY and a NOTIFY is used to 
alert a process which is waiting. 

Coordination is achieved by means of a semaphore containing a 
counter and a BOL pointer. The semaphore and the PCB's 
waiting for the event of that semaphore constitute a wait 
list. The counter, if greater than 0, indicates the number 
of PCB's on the wait list. If negative, it indicates the 
number of processes that can obtain the resource. Semaphores 
fall into two categories: public and private. A public 
semaphore is used to coordinate several processes together or 
control a system resource. Private semaphores str^ used by a 
single process to coordinate its own activities. For 
example, if a disk request is made, a process will wait on a 
private semaphore for the disk operation to complete. The 
disk process will then notify the semaphore upon completion. 
The distinguishing characteristics of a private semaphore is 
that only 1 PCB can ever be on that wait list. A public 
semaphore can have many different PCB's on its wait list. 

1. WAIT 



The operation of wait is as follows: the semaphore counter 
is incremented and, if greater than 0, (resource not 
available/event has not occurred), the PCB is removed from 
the ready list and added to the specified wait list. If the 
counter is less than or equal to 0, the process continues. 
If the PCB is put on the wait list, the general registers are 
NOT saved and the register set is made available. Therefore, 
a process can NEVER depend on the general registers being 
intact after a WAIT. In fact, from the point of view of an 
executing process, a WAIT appears as a NOP which destroys the 
registers. In addition, WAIT will turn off the process 
timer. Figure 4 is a detailed flow chart of the WAIT 
instruction. 
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2. NOTIFY 



The NOTIFY instruction has two flavors: 

NFYE: use FIFO queuing op code Bit 16 ■ 
NFYB: use LIFO queuing op code Bit 16 • 1 

The instructions differ ONLY in the ready list queuing 
algorithm used. The operation of NOTIFY is as follows: the 
semaphore counter is decremented and the notifying process 
continues. If the counter is less than 0, no action is 
taken* but if greater than or equal to 0* a PCB is removed 
from the top of the wait list and added to the ready list. 
No explicit action is ever taken on the notifying process, 
only the notified semaphore. If a notified process is of 
higher priority than the notifying process* the latter will 
be effectively 'interrupted '* but will remain on the ready 
list. Figure 3 is a detailed flow chart of the NOTIFY 
instruction. 

C. Dispatcher and Register File Management 

The dispatcher is the root of the process exchange mechanism 
and is responsible for determining the next process to run 
(be dispatched)* and assigning that process a register set. 
There is considerable overlap with NOTIFY and WAIT in 
functionality related to maintaining the ready list. For 
example* both NOTIFY and WAIT update PPA and PPB as 
appropriate, but the dispatcher scans the ready list if PPA 
is invalid. Register file management* including any 
necessary saves and restores* ar» the sole province of the 
dispatcher. Figures 6 and 7 ar9 detailed flow charts of the 
dispatcher. 

1. Ready List Maintenance 

Upon entry, the dispatcher first asks if PPA is valid. If it 
is, the process is assigned a register set and dispatched. 
If PPA is not valid* a scan of the ready list is initiated. 
If a PCB is found* PPA is adjusted and the process 
dispatched. If the ready list is empty, the dispatcher 
idles. Whenever a process is dispatched the process timer is 
turned on. 

2. Register Set Assignment 



In each register set* a register, designated OWNER, contains 
a pointer to the PCB of the process which owns the set. 
OWNER is a full 32-bit pointer and OWNERH is used throughout 
the system to determine the segment number of the ready list 
and PCS's. Obviously, OWNERH must be the same in both 
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register sets. In addition* the low order bit of the keys 
register (KEYSH) is used to indicate whether the register set 
is available. The bit is called the Save Done bit and/ if 
set* indicates that the register set and its copy in the 
owner's PCB am identical (a save has been done). This bit 
is set by the save routine (called from WAIT or the 
dispatcher) and reset when a process is dispatched. Whether 
a register set is available (SD=1) or not* it is always 
owned. Therefore* if a process goes away (either as a result 
of a WAIT or the notification of a higher level process) and 
comes back again immediately and* if that process still owns 
the register set, a restore operation is not necessary. If a 
register set switch is necessary* the process timer is turned 
off. The details of selecting which register set to assign 
to a process being dispatched is shown on the right of Figure 
6. The dispatcher is the only code which switches register 
sets. 

3. Fetch Cycle Trap 

At various points in the dispatcher (indicated by I on the 
flow chart) a check for interrupt pending (fetch cycle trap) 
is made. As a result* interrupts can occur either in the 
fetch cycle or in the dispatcher. The possible Fetch Cycle 
traps ar9t 

1. External Interrupt (See Part II-A) 

2. CP-timer increment and possible overflow (See Part 
V) 

3. Power Failure (See Part II-C) 

4. Halt switch on control panel (See Part IV) 

5. End-of— Instruction Trap 

The end-of-instruction trap occurs either from an ECC 
corrected error or from a missing memory module* memory 
parity* or machine check during I/O. In all cases* if the 
check handling software returns (via LPSW instruction)* the 
possible destinations ar9 either the fetch cycle or the 
dispatcher (PB in PSW not a real program counter). In order 
to guarantee the proper destination* bit 15 of the keys 
(KEYSH) is used to indicate if the trap was detected by the 
dispatcher (bit 15»1). This bit is set by the dispatcher 
upon detecting a trap and is reset when a process is actually 
dispatched (return to fetch cycle). 

II. TRAPS* INTERRUPTS* FAULTS* CHECKS 

Four words used frequently arm 'trap'* 'interrupt' (or 
'external interrupt')* 'fault'* and 'check'. The meanings of 
these terms ar« carefully distinguished for the P-400/500. 
Software breaks in execution av9 divided into three main 
categories referred to as 'interrupts'* 'faults'. and 
'checks'. The word 'trap', on the other hand. refers to a 
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break in execution flow on the u-code level. 

Traps can occur for many reasons, not all of which cause 
software visible action. and ars always processed on the 
u-code level. Some traps may directly or indirectly cause 
breaks in software execution, but not all software breaks av« 
the result of a trap. 

On the PRIME 300. interrupts, faults, and checks used the 
same protocol to get to their respective software handlers, 
namely they caused a vector through a dedicated sector 
location CJST* vector). On the P-400/500, when process 
exchange mode is enabled, the three categories use different 
protocols both from the P-300 and each other. Roughly, the 
three terms atb used to describe: 

1. Interrupt - a signal has been received from a device 

in the external world (including clocks) 
indicating that the device either needs 
to be serviced or has completed an 
operation. In general, an interrupt is 
not the result of an operation initiated 
by the currently executing software and 
will not be processed by that software 
(though, of course, it may). 

2. Fault - a condition has been detected that 

requires software intervention as a 
direct result of the currently executing 
software. In general, faults can be 
handled by the current software, though 
in many cases common supervisor code 
within the current process handles the 
fault. Also, in general, an external 
device in the real world is not directly 
involved in either the cause or cure of 
a fault condition. Often, however, 
external devices are involved indirectly 
as, for example, in performing a page 
turn operation as a result of a page 
fault. 

3. Check - an internal CP consistency problem has 

been detected which requires software 
intervention. The condition could be 
either an integrity violation, reference 
to a memory module which does not exist, 
or a power failure. By contrast, a 
reference to a page which is not 
resident or an arithmetic operation 
which causes an exception is a FAULT 
condition. 

A. External Interrupts 
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1. Operation 

External Interrupts operate in either of two modes depending 
upon whether process exchange is turned on. If process 
exchange is off. all interrupts avn treated as P-300 
interrupts. In all cases* except memory increment, the 
address presented by the controller (or '63 if in standard 
interrupt mode) is used as the address in segment of a 
16-bit vector. This vectori in turn* points to interrupt 
response code (IRC), also in segment 0, which is entered via 
a simulated JST* through the vector. Thus, the current 
P-counter (RPL) is stored in (vector) and execution begins at 
location (vector) +1 with, interrupts inhibited, but with no 
other keys or modals changed. If in vectored interrupt mode, 
it is the responsibility of the software to do a CAI. In 
either mode, the full RP is saved in the register PSWPB. 

If process exchange mode is on, an entirely different 
mechanism operates. In all cases, except memory increment, 
the address presented by the controller is used as a 16-bit 
word number offset into the interrupt segment (#4). This 
segment is guaranteed to be in memory, but STLB misses may 
occur. The current PB (actually RP) and KEYS (keys and 
modals) are saved in the u-code scratch registers PSWPB and 
PSWKEYS. The machine is then inhibited and the IRC begins 
execution in 64V mode. It is the responsibility of the IRC 
to issue a CAI. It is important to note that the IRC in the 
interrupt segment does not belong to any process. PPA points 
to the PCS of the interrupted process and, in fact, no PCB 
exists for the IRC. Also, except for PB and KEYS, no 
registers ars saved. In fact, even PSWPB and PSWKEYS ava in 
the register file and not in memory. As a result, the IRC 
cannot do an enable and must return to the process exchange 
mechanism (i.e., the dispatcher) as soon as possible. 
Because of all these restrictions on what the immediate IRC 
can do, as well as the fact that it does not belong to any 
process, it is referred to as phantom interrupt code. Unless 
the job of servicing an interrupt is very simple, phantom 
interrupt code can do little more than turn off the 
controller's interrupt mask, issue a CAI, and NOTIFY the real 
IRC. 

A memory increment interrupt is handled the same regardless 
of the state of process exchange. The address presented by 
the controller is used as the 16-bit word number in segment 
(I/O segment) of a 16-bit memory cell to be incremented. If 
the counter does not overflow (-l->0), the u-code simply 
returns. With process exchange off, the return is always to 
the fetch cycle. With process exchange on, the return is 
either to the fetch cycle or the dispatcher, depending upon 
where the interrupt was detected. When detecting an 
interrupt, the dispatcher always insures that RP=PB and that 
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all live keys=KEYS. If memory increment returns, it does so 
to the top of the dispatcher without having touched PB or 
KEYS. In this way* memory increment is guaranteed not to 
destroy any vital information needed by the dispatcher. If 
the memory cell counter does overflow. an End-of-Range 
interrupt is generated and then memory increment returns. 
The subsequent EQR interrupt will then be treated like any 
other external interrupt. Figure 8 is a detailed flow chart 
of the external interrupt handler. 

2. Special Instructions (IRTN. INOTIFY) 



Phantom interrupt code has two options for the actions it can 
take. If the servicing required by the interrupt is very 
simple, phantom code can completely process the interrupt and 
return to the dispatcher. If the servicing required is more 
complex, the phantom code must turn off the controller's 
interrupt mask and NOTIFY the remainder of the IRC. In the 
first case. PB and KEYS must be restored from PSWPB and 
PSWKEYS and then the dispatcher must be entered directly. 
Since PB cannot be restored in phantom code (the P-counter 
will point to the instruction in phantom code) and the 
dispatcher cannot be entered directly (no such instruction 
exists), the special instruction. IRTN. a 16-bit generic, is 
executed to perform these functions. After entering the 
dispatcher via an IRTN, the dispatcher does not know that an 
interrupt occurred. 

In order to NOTIFY a process, phantom code must insure that 
PB and KEYS are restored before issuing the NOTIFY. The 
special instruction, INOTIFY, performs the restore and then 
does the NOTIFY. As NOTIFY, INOTIFY is a three-word generic 
with two flavors, INOTIFYB and INOTIFYE where the beginning 
of list option has bit 16-1 and the end of list option has 
bit 16=0 in the opcode. 

Phantom Interrupt code can issue a CAI in one of two ways. 
Either an explicit CAI instruction may be issued or the 
IRTN/INOTIFY instructions can issue it. Bit 15 of the 
IRTN/INOTIFY instructions is interpreted as follows: 
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In all* there are four INOTIFY instructions as follows: 
Name Bit 15 16 Function 



I NEC 
INEN 
I NBC 
INBN 




1 

1 



Figure 9 is 
instructions. 
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Faults are CPU events which arm synchronous with and. in a 

loose sense. caused by software. Eleven fault classes have 

been defined for the P-400. Several of these classes artt 
further subdivided into distinct types. Of the eleven, three 

ar9 completely new for the P-400 and. of the other eight, 

three have expanded meaning when in P-400 mode. The eleven 
fault classes and their meanings are: 
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Data Bases 



The fault data bases consist of the fault vectors and 
concealed stack in the PCB and the fault tables pointed to by 
the PCB vectors. Figure 10 shouts these data bases as well as 
the mapping of P-300 faults to P-400 faults. Also shown in 
this figure is the differential action taken according to 
fault class (e.g., what ring to process the fault in) and the 
set up the u-code 'front end' must do before going to the 
common fault handler. 

The underlying philosophy of the four fault vectors is that 
while some faults may need to be processed by ring code, 
others may be adequately handled in the current ring of the 
faulting process. The vectors are in the PCB to allow 
different processes to have different fault handlers. For 
example, process A may wish to use a system fault routine to 
handle pointer faults (dynamic linker) while process B may 
wish to define its own algorithms for resolving pointer 
faults. Notice that it is always possible for a 'current 
ring' fault handler to call a ring procedure if the need 
arises. Note also that page fault has its own vector despite 
the fact that ring is entered. For the special case of 
page fault, only a single, system-wide processor will be used 
and all PCB page fault vectors will point to the same place. 

The concealed stack, also in the PCB. is used to allow fault 
on fault conditions. For example, it is quite possible to 
get a segment fault while processing a segment fault. The 
only fault which cannot cause another fault of any type is 
page fault. Each frame of the concealed stack contains the 
PB and keys (KEYSH) of the faulting procedure as well as a 
fault code (to distinguish different types within each class) 
and a fault address, if appropriate. The stack itself is 
circular and must have allocated sufficient frames to handle 
the longest possible sequence of fault on fault that can 
occur in ring 0. Such a sequence might be: Pointer (link) 
fault -> Segment fault -> Stack fault -> Segment fault -> 
Page fault. Note that this particular sequence occurs before 
any software fault handler is entered. Also, the first 
segment fault enters ring O, so at least a five-level stack 
is necessary if the original link fault is to be processed 
correctly. 

The second data base consists of four distinct fault tables, 
each pointed to by a PCB fault vector. Each entry in the 
table consists of four words of which the first three must be 
a CALF instruction. Only the page fault table must be locked 
to memory and only the ring table, must be in a pre-defined 
(SDW exists) segment (otherwise, segment fault might recurse 
infinitely). Naturally, the ring table, as well as the 
PCB, is carefully audited by ring procedures. 
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CALF 



The CALF instruction has two major functions. First/ to 
avoid holding off interrupts for too long* the CALF 
instruction defines a restart point in fault handling since 
it has a PB (i.e.* it is a macro-machine instruction). As a 
result* it is q.uite possible to suspend a process in the 
middle of getting to a software fault handler. Second, it 
allows a straightforward mechanism to simulate a procedure 
call from the faulting procedure (at the instruction causing 
the, fault) to the fault handler. 

The instruction itself is a three-word generic in which the 
second and third words ar« a 32-bit painter to the fault 
handler. To simulate the procedure call* the PB and KEYS 
from the concealed stack are placed in the fault handler's 
stack frame along with the other base registers (only the PB 
and KEYS have been changed to point to the CALF and to enter 
64V addressing mode) to be used by the standard procedure 
return (PRTN) instruction. In addition* the fault code and 
address are placed in the fault handler's stack as if they 
were arguments passed by a standard procedure call (PCD 
instruction. After the information is moved from the 
concealed stack it is popped. In all other respects* CALF is 
identical to PCL. 

3. Fault Handler 



The fault handler is a u-code routine that is entered from 
the various fault class 'front ends' and* based on process 
exchange mode* either simulates a P-300 type fault (JST* 
through segment fault vectors) or performs the P-400 fault 
protocol which includes setting up a concealed stack frame* 
switching to 64V mode* and determining. on the basis of 
information provided by the 'front end', which fault vector 
to use and setting PB to point to the proper CALF in the 
fault table. Figure 11 is a detailed flow chart of the fault 
handler and Figure 10 contains a table of the necessary setup 
performed by each fault class 'front end'. Note that for 
P-300 faults, the full RP is also saved in the u-code scratch 
register PSWPB and the machine is inhibited for one 
instruction if in Ring 0. 

C. Checks 



Checks, unlike faults, are CPU events which are asynchronous 
with, and ar9 not caused by. normal instruction execution. 
Rather, they are events which ara either invisible (e.g.. an 
ECC corrected error) or fatal (e. g. . missing memory module) 
to the currently executing procedure and perhaps the CPU 
entirely (e.g.. machine check). Checks essentially represent 
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processor faults as opposed to process or procedure faults. 
Four check classes have been defined as follows: 
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Check P-400 
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Memory Parity ECC corrected 

ECC uncorrected Mem 

ory Parity 

Machine Check Fatal CPU error sam 

e 

Missing Memory Module Memory module does not exist sam 

e 

Unlike faults which can he stacked and interrupts which cause 
a process to be suspended, each check class has a single save 
area (check block) consisting of eight words in the interrupt 
segment (#4) in which PB and KEYS (high and low) are saved in 
the first four locations (check header) and the remaining 
four locations contain software code (probably a JMP). 
Figure 12 is a picture of the check data base as well as a 
description of the necessary u-code setup required before 
going to the common check handler. In addition to the memory 
data base* three 32-bit registers are used as a diagnostic 
status word (DSW) to help a software check handler sort out 
what happened. Figure 13 shows the format of the DSW. 

Check reporting (traps) is controlled by the two low order 
bits in the models (KEYSL). The possible modes are: 

MCM ■ no reporting 

1 report memory parity (uncorrected) only 

2 report unrecovered errors only 

3 report all errors 

The check trap can result in two possible actions depending 
upon the type of check that occurred and the type of u-code 
which was trapped. If the trapped code was either DMX, PIO, 
or external interrupt processing (unless the error was a 
machine check for RCM parity), or if the check was for an ECC 
corrected (ECCC) error, the end-of-instruction flag is set, 
REOTV is set to the proper offset/vector, MCM is set to 
(except ECCC which sets it to 2). and a u-code RTN to the 
trapped step is executed. In this way, the 10 bus is always 
left in a clean state. In all other cases, the check to 
software occurs immediately. Figure 14 is a detailed flow 
chart showing the operation of the check trap handlers. 

The common check handler is entered from various check 'front 
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5»RCX-SF0 input 
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7=Reg i ster Ft I e 
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4«:: c»w=€'-- Corrected error 
43: Sup InvaSP backup count (44-45) Invalid 
44,46: R? Sackup Ccunr-amount RPt. (0SWP3) was incramentad In current instruction 
47: CMX, set if check occurred during CMX 

43: 10 Sus. ser if check occurred during CMX, PIO or Interrupt u-code 
_ 4«: sma lnv=CSWRMA invalid (Possible from SCCU and MM only) 
50: Reserved 
51,55: £CCC Syndrcme=5 syndrcme b its on a corrected error 

56: Mcd-.?=tsw order address bit of memory module causing the error 
57,53: Reserved 
55,54; u-verify rest j? sat on failure during Master Clear or Vl.RY instrtrcrion 

Validity: 

A '**vs : 1-33,43,47-43,55-30 

if bir 34 ser :3~-43 

35 :4| -42,55 If bit 42 set:5I-55 

25 :55 

If bit 4 j resar: 44-45 

ft is rne resBcnsibil iry of file check handling sofT-are ra clear trie OSW after a check 
has teen processed. 
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Figure 14. 
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ends' and* based on process exchange mode* either simulates a 
P-300 type check (JST* through segment check vectors) or 
performs the P-400 check protocol which includes setting up 
the check header* inhibiting the machine/ and switching to 
64V addressing mode. In either mode* MCM is set to before 
going to software. Figure 13 is a detailed flow chart of the 
check handler and Figure 12 contains a table of the necessary 
setup performed by each check class 'front end'. 

III. REGISTER FILES 

The PRIME 400/300 contains four distinct register files. 
Each file is further divided into halves* each 32 locations 
(registers) long* and each 16 bits wide. One half is 
referred to as the high half and the other as the law half. 
Since both halves are addressed together* each register file 
contains 32* 32-bit register or 64* 16-bit registers. The 
register files* numbered from 0* are used as follows: 

RFO - u-code scratch and system registers 
RF1 - 32 DMA channels 
RF2 - User register set 
RF3 - User register set 

This layout of register files allows easy expansion to eight 
register files* thus adding four new user register sets. All 
user register sets have the same internal format and the DMA 
register file simply consists of 32 channel registers. 
Channel register '20 within RF1 is equivalent to the P-300 
DMA registers '20 and '21. Channel register '22 is mapped to 
'22 and '23. In this way* the mapping proceeds for each even 
register in RF1 to channel register '36* mapped to '36 and 
'37. All other RF1 registers represent additional DMA 
channels over the P-300. Figure 16 shows the internal 
structure (usage) of RFO and the user register sets (RF2* 
RF3). Note that all user register sets contain the segment 
number of the Ready List/PCB segment (OWNERH) and a cell for 
the modals (KEYSL). It is necessary* before entering process 
exchange mode* to set OWNERH in ALL register sets to the 
proper value and to NEVER alter it thereafter. Although all 
register sets contain a cell for the modals* only the current 
register set (CRS) contains the valid modals. It is 
therefore necessary* whenever register sets are switched* to 
copy the modals into the new register set. Currently* only 
the Dispatcher switches register sets. CRS is defined and 
specified by the three bit field labeled 'CRS' in the modals. 
Since this field can span up to eight register files* but two 
are used for u— code scratch and DMA* user register sets are 
numbered from 2-7. Of course* only 2 and 3 are currently 
implemented. Thus* for the P-400/300* the CRS field must 
always have bit 9 off* bit 10 on* and bit 11 selects the 
register set (as if and 1 were the numbers). In fact* the 
u-code will only look at bit 11. 
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Direct register file addressing (not using CRS) is 
accomplished either with the LDLR/STLR instructions or via 
the control panel. The Register Files ars ordered 
sequentially with an absolute address of addressing 
RFO-register (u-code scratch/system file), '40 addressing 
RFl-register (DMA file). '100 addressing RF2-register 
(user set 2)/ and '140 addressing RF3-register (user set 
3). 

Beside each register name, where appropriate, is the 
PRIME— 300 mode mapping from address traps to registers (e.g.. 
the X register is the high half of GR7). 

IV. CONTROL PANEL 

The control panel for the P-400/500 is the same physical 
panel used for the P-100/200/300. It's functionality was 
enhanced by improving the u-code in the CP. All switches and 
selectors operate exactly as for the P-300 with the exception 
of the sense switches in the up position. Figure 17 is a 
diagram of the functionality of the switches. Notice that 
with all switches down, any FETCH/STORE operations are 
to/from memory-mapped. As long as segmentation mode is not 
turned on. mapped and absolute are the same, thus preserving 
compatibility. If SS4 down were absolute, address traps 
could not occur and would thus be incompatible. Notice also 
that SS5-16 in the up position changes meaning depending upon 
SS4. When mapped, all 12 switches are read as a 12-bit 
segment number. When absolute, SS11-16 are used as the 6 
high order bits of the 22-bit physical address. To address 
any P-300 registers, all sense switches should be placed in 
the down position and addresses between and '37 specified.. 

P-400/300 registers are accessed by raising SSI. Then, if 
SS2 is down, the low order 5 bits of the address are used to 
access 32-bit registers 0-'37 within CRS. If SS2 is raised, 
the full 7 bit address is used to access any register in any 
register file. The addresses, as shown in Figure 16, are 
0-'37»u-code scratch/system, '40-'77»DMA. '100-'137=User set 
2, and / 140-'177=User set 3. SS4 is used to access either 
the high half (up) or the low half" (down) of the selected 
register. For all register accesses, the Y+l functions will 
advance the register address before the access, exactly as 
for memory accesses. Wrap around will occur on the 
appropriate number of bits, since any bits of higher order 
are ignored for the access. 

The control panel data register is TR2H and the address 
register is TR3. Upon entering the control panel routine, RP 
is saved in TR3 and (RP) is saved in TR2H. In addition, the 
keys (KEYSH) are updated to reflect accurately the live keys. 
Thereafter. TR3H is not altered by the control panel itself 
so RPH is always remembered. However, on exit. PBH is used 
to update RPH and KEYS is used to update all the keys. As a 
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result* single stepping can change segments as well as keys 
and modals. Figure 18 is a detailed flow chart of the 
control panel routine. 

The only exception to the control panel entry protocol is 
that if a Fault. Check. or external Interrupt attempts to 
vector through a vector containing in P-300 mode. the 
following registers will contain: 
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KEYSH 
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address of 'trapped' instruction 

SN of 'trapped' instruction 

proper keys 

(data) 

(address) 0.0 
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ntaining 

V. CP TIMER 

Resolution *» 1024 u-sec 

Turned on by DISPATCHER before dispatch. 

Turned off by: 

WAIT after/during save 
DISP before changing CRS 

On tick, u-code increments the interval timer (TIMER) in 
RF(CRS). When that overflows, bit 16 in the PCD abort 
flags (memory) is set to cause a process fault. 

It is the responsibility of software that resets the 
interval timer to maintain the elapsed timer. 




Figure 18. 
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SUBROUTINE CALLS 



f focJLurf C^tt) 
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CMcoulvfc} 



(1) CALLING PROGRAM 



/2^w ? vF 



(ENTk^i CJufanf 6loc/c 



CALL 

- CALLS A SUBROUTINE 

- GENERATES PCL (procedure call) 

PCL 

- ADDRESSES AN ECB THROUGH A LINK 

- CALCULATES THE RING NUMBER , _ ^ ^ Rrf t ctzf) 

- ALLOCATES THE STACK FRAME ( ^ 

- INITIALIZES THE STATE OF THE CALLED PROCEDURE 

- TRANSFERS THE ARGUMENT POINTERS ■ 




AP 



GENERATES THE ARGUMENT POINTERS FOR THE PCL 

FOLLOWS THE PCL INSTRUCTION 

FORMAT 

AP ARG.TAG 
where TAG modifier can be: 

- S variable is an argument 

- SL variable is the last argumnet 

- *S the argument is an indirect address 

- #SL the argument is an indirect and the last 



EXAMPLE: 





CALL 


SUB1 




AP 


ARGL5 




AP 


ARG2, SL 




LINK 




ARG1 


DATA 
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ARG2 


DATA 






(2) THE SUBROUTINE 

ARGT 

- DOES THE LAST STEP OF THE PCL INSTRUCTION 

- EXECUTED ONLY IF A FAULT OCCURS DURING THE CALL 

ARGUMENT TRANSFER 

- MUST BE PRESENT IF THE SUBROUTINE REQUIRES 

ARGUMENTS 

ECB 

- GENERATES AN ENTRY CONTROL BLOCK (ECB) 
TO DEFINE A PROCEDURE ENTRY 

- GOES INTO A LINK FRAME 

- FORMAT 

LABEL ECB PFIRSL , ARGDISP, NARGS, SFSIZE, KEYS 
WHERE: 

PFIRST - pointer to the first executable statement 
ARGDISP - displacement in the stack frame of the 

argument list (default is '12) 
NARGS - number of arguments to he passed 
SFSIZE - stack frame size; the default is given 

by the DYMN 
KEYS - keys, the default is 64V 



(3) ARGUMENT TEMPLATE 
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B = BIT NUMBER 

I = INDIRECT BIT 

L = LAST BIT, LAST TEMPLATE FOR THIS PCL 

S = STORE BIT, LAST TEMPLATE FOR THIS ARGUMENT 



(4) ENTRY CONTROL BLOCK 
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(5) STACK FRAME 
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Index of files in PRIMQS>KS - Primos kernel code. 

'•*' in column 1 indicates file did not exist at Rev. 18 



A3SSWS. 


PLP 


ACCOM*. 


PLP 


ADDISK. 


FTN 


AINIT. FTN 


AMINIT. 


PMA 


AMLC 3. FTN 


AMLDIM. 


PMA 


ASNDES. 


FTN 


* ASNLNS. 


PLP 


* ASNMT*. 


PLP 


ASRDIM. 


PMA 


* ASSUR*. 


PLP 


BADDSK. 


FTN 


* BADIX*. 


FTN 


* ECKUP3. 


PLP 


2FGETR. 


PMA 


* 3INIT. FTN 


BREADS. 


PMA 


3RPDIM. 


FTN 


CI INS. PLP 


C1IN. PLP 


* CHG5PW. 


PLP 


* CHGSSA. 


PLP 


CINIT. FTN 


CMREAS. 


FTN 


CNEQV. PMA 


CNFLCT. 


FTN 


* CPSS. PLP 


* CPSSCA. 


PLP 


* CPSSCN. 


PLP 


* CPSSCU. 


PLP 


* CPS5DF. 


PLP 


# CPSSIN. 


PLP 


* CPSSNA. 


PLP 


* CPSSRC. 


PLP 


* CP35RG. 


PLP 


* CPSSSN. 


PLP 


■* CFSSST. 


PLP 


CRDDIM. 


PMA 


C3TAK*. 


PLP 


* date*, i 


3 LP 


DELAY. ! 


'MA 


DEVCHK. 


. FTN 


DISH. 1C. 


. PMA 


DMGSET 


. FTN 


DCS5UB 


. FTN 


■* DEQPD_ 


. PLP 


DRPDTR 


. PLP 


DSKCHN 


. PMA 


DSKEGV 


. FTN 


ni '?lxs 


. FTN 


•■ DYNSGS 


. PMA 


■•'■ ENCRYP 


IS. PLP 


Zr.KLSS 


. FTN 


ERRRTN 


. FTN 


- ZXTLCG 


. PLP 



3 procedures 



Routine to read ABBRSW in FIGCOM for ring 3. 

Access cominput information in pudcom for ring 

ADDS DISKS TO THE SYSTEM DISK TABLE 

COLD START INITIALIZATION (PART 1) 

INITIALIZES AMLC CONTROLLER CS) 

PROCESS INTERNAL COMMAND AMLC 

PROCESSES AMLC INPUT AND OUTPUT 

ASSIGN DISK AND OTHER PERIPHERAL DEVICES EXCEPT MAGTAPE. 

ASSIGN AND UNASSIGN AMLC LINES 

Assign magnetic tape drive units. 

CLOCK DRIVEN ASR DRIVER (OPTION-A) 

Ensures a user has specified amount of cpu time left 

CHECK FOR LEGAL PRIMOS DISK NUMBER 

MAP OUT BAD PAGING DEVICE RECORDS. 

Back Up Return PB For Ring 3 QUIT FIM. 

BUFFERING PACKAGE USED BY MPCDIM, VERDIM 

COLD START INITIALIZATION (PART 2). 

Manage Quit Inhibit Counters for all rings. 

PAPER TAPE PUNCH DIM 

Single Character Command Input 

User Version Of C1IN* 

Change the user's login password. 

Change System Administrator. 

COLD START CONFIGURATION 

OLD STYLE COMMAND LINE PARSER 

NAMEQV-COMEQVCOMPARE ASCII NAMES 

CHECK FOR CONFLICTING PRIMOS PARTITIONS 



Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 



Process 
Process 
Process 
Process 
Process 
Process 
Process 
Process 
Process 
Process 
Process 



Signalling 
Signalling 
Signalling 
Signall ing 
Signal 1 ing 
Signalling 
Signalling 
Signalling 
Signalling 
Signalling 
Signal 1 ing 



Send Signal Routine 

Clear A User From All ACLs 

Control Routine 

Clear A User's USL. 

Defer Signal Routine 

Initialization Routine 

Name Routine 

Signal Received Routine 

Registration Routine 

Who Signalled Routine 

Status Routine 



Cross 

CARD READER DRIVER 

Manipulate/examine the calling process' concealed stack. 

Return the standard (FS) format date and time. 

SET SLOPE OF DELAY CURVE FOR TERMINAL 

CHECK EXTERNAL DEVICE ASSIGNMENT. 

DISK I/O FOR Primos. 

C£-r_up dmQ. CONTROL BLOCKS AND BUFFERS. 

COMMAND LINE PROCESSOR FOR PRMOS4. 

Invoke the DROPDTR command from ring3 

Drop the amlc line dtr for a desired user 

DISK CONTROLLER CHANNEL PROGRAMS. 

CHECK FOR SAME PARTITION OR OVERLAPPING PARTITIONS 

SET/RETURN TERMINAL CONFIGURATION WORD 

DYNAMIC SEGMENT ALLOCATION DATA BASE 

Encrypt a user's .login passuord. 

SET ERASE AND KILL CHARACTERS FOR USER 

ERROR RETURN HANDLER FOR PRM0S4. 

Restore the external login/logout program. 
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FATALS. PMA 
"ILFAG. PMA 
FIND_SEG. Pi-P 
GATINI. FTN 
GCHAR. PMA 
GETSEO. FTN 
GETSN*. PLP 
GET SANAME. PLP 
GMETR*. PLP 
GPGREC. FTN 
GPIDIM. PMA 
GTWNDO. PMA 
HCSS. PMA 
KMAPS. PMA 
INITSU. PLP 
INSONS. PLP 
IOASSY. PMA 
IOWIRE. PMA 
IOWNDW. PMA 
JOBSO. PLP 
LGINI*. PLP 
LIMIT*. FTN 
LISTEN. PLP 
LMAPS. PMA 
LDCKPG. FTN 
LOGAQT. PLP 
LDGEV1. PMA 
L0GEV2. FTN 
LOGINS. PLP 
LOGOS*. FTN 
LQGCSCP. PLP 
LOGOCMT_. PMA 
LOGOCmJ~PLP 
LOGOUT. PLP 
LOG_INIT. PLP 
LCNSC. PLP 
LCNSCN. PLP 
LONSO. PLP 
LONSR. PLP 
LCNSS. PLP 
LCVSSW. PLP 
LG_CLEAN. PLP 
LO"FATAL. PLP 
LO_NATCH. PLP 
:-:APIO. PMA 
^APNDX. PMA 
rAPSEG 



* •— — '— A ^ 

■ -*• ^ :T. •-* .^ 



FTN 
FTN 
FTN 
FTN 



MINABT. 
:- r 0VE3. PMA 
MCVUTU. FTN 
MP 2D I M. PMA 
MPCDIM. PMA 
M3GS. FTN 
?*SGSST. FTN 
KSGCOM. PMA 
MSSOUT. PLP 
MTDIM. PMA 
Ml LOCK. PMA 



FATAL PROCESS ERROR 

FILL PAGE WITH ZEROES 

Return a vector of free segment numbers 

RING GATE SEGMENT INITIALIZATION. 

GET CHAR FROM ARRAY, STEP CHAR PTR 

ADD A SEGMENT TO A USER 

Return a vector of allocated segment numbers 

Read SA name from SAD into SUPCOM. 

Get metering data of various sorts and flavours. 

Allocate a paging device index. 

INTERRUPT PROCESS FOR T*GPPI INTERFACE 

ROUTINE TO ALLOCATE SEG-0 WINDOWS FOR MAPPED I/O. 

FIND GATE ENTRY POINT FOR POINTER FAULT HANDLER. 

SEGMENT 22 MODULE 

Initialize a new user. 

INSONS initializes static on unit lists 

Ioa* call for system console. 

Wire/unwire pages for performing I/O. 

Open mapped I/O windows. 

Accesses on Batch queue control file. 

Turn on and off OS and network logging. 

SET/READ CPU AND LOGIN TIME LIMITS. 

Ring Zero (logged out) Listener. 

SEGMENT 33 MODULE 

WIRE AN AREA OF THE VIRTUAL MEMORY. 

Handle Logout Process Aborts (forced and timeouts). 

FIRST-LEVEL EVENT LOGGING. 

SECOND-LEVEL EVENT LOGGER 

Ring zero LOGIN command processor. 

SUBROUTINE TO LOG OUT A USER OR USERS 

Logged out command processor 

Logged out command table. 

Decide whether command is a valid logged out command. 

Logout interface (r3 to rO) and message sender. 

Reset parameters after logout or before login. 

Closes a user's logout notification message q.ueue. 

Logout Notification Instant Notify Control Routine. 

Logout Notification Receiver Message Queue Opener 

Logout Notification Message Receive Module 

Logout Notification Phantom Message Send Module 

Routine to read LOGQVR in FIGCOM for ring 3 

Clean up after external logout or login error. 

Main logout processor, called by LOGOUT and FATAL*. 

Unhash and close all attach points during logout. 

LOCK AND MAP (AND UNLOCK) USER BUFFERS INTO SEGMENT 

ROUTINES TO FIND SDW AND PAGE MAP. 

MAPS A SEGMENT ALREADY DEFINED IN DTAR TO ANOTHER SEGMENT 

HANDLE MESSAGE COMMAND. 

SETS MSG RCV STATE FOR USER 

HANDLE 1 MINUTE PROCESS ABORT. 

DATA MOVEMENT SUBROUTINES. 

MOVE WORDS FROM ONE USER'S VIR. ADDR SPACE TO ANOTHER USER' 

DRIVES LINE-PR INTER, CARD-READER. CARD-PUNCH VIA MPC#2. 

DRIVES LINE-PRINTER, CARD-READER, ■ CARD-PUNCH VIA MPC. 

Send a message to a user on an arbitrary node. 

RETURN MSG STATUS TO CALLER 

MESSAGE COMMON 

Message facility — output message to user. 

DRIVES MAG-TAPE VIA MPC. 

LOCKING ROUTINES FOR PRIMOS 
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NLKCOM. 


FMA 


NLOGIN. 


PLP 


GERRTN. 


FTN 


CRGO. Ptf 


IA 


FA2GRT. 


FTN 


FAG5FS. 


PLP 


PACINI. 


FTN 


FAGTUR. 


FTN 


FEDIOS. 


PMA 


PSHSON. 


PLP 


PBTABL. 


PMA 


PCBINI. 


FTN 


PC3PTR_ 


.. PLP 


FGFSTK. 


PMA 


FHLOGIN. PLP 


FHNTM*. 


FTN 


PHTTYREQ. PLP 


PM5GS. FTN 


FRERR. FTN 


FRNSST. 


FTN 


FTRAP. FTN 


PTRDIM. 


FTN 


QUTABT. 


PLP 


QUTRST. 


PLP 


RQBASE. 


PMA 


R OF ALT. 


PMA 


ROUII. PMA 


R3CALL. 


PMA 


REMLIS. 


FTN 


REPLYS. 


FTN 


RM3GDS. 


FTN 


RTIMES. 


PMA 


RTNSEG. 


PMA 


RTNSG1. 


FTN 


SA.MAM*. 


PLP 


SCHAR. PMA 


SCHED. PMA 


SE'GO. FMA 


SEG14. PMA 


SEG4. PMA 


SEG5. PMA 


SEGACS. 


. FTN 


EEM*CA. 


. PLP 


— .1 i -*w w. 


. PL? 


= E'.<sDR. 


, PL? 


2EMSNF. 


. PL? 


rEMSCP 


, PLP 


SSSISOU. 


. PL? 


• r E!*iSST 


. PL? 


SEMSTN 


. PL? . 


SEMSTS. 


. PL." 


HEMSTW. 


. PLP 


SEMSWT 


. PLP 


SEMUTL 


pi 5 


SSMVQA 


. PLP 


SEMVGR 


. PL? 


SEMVGS 


. PL? 


EETCPU 


H" Y.', 


rtijt-KK* ir 


FTV 



NON-WIRED COMMON 

Main login routine for Normal users. 

OLD-STYLE ERROR HANDLING 

SETS LOADER WDNO TO ZERO 

HANDLE PROCESS ABORT CONDITIONS (NEE SCHED) 

Page (to)/from the file system ( l04Qwd-record devices). 

PRIMOS PAGING MECHANISM COLD START INITIALIZATION. 

TURN PAGE<S) IN RESPONSE TO A PAGE FAULT. 

PAPER TAPE READER. PUNCH. PRINTER I/O RELATED ROUTINES 

PB Histogram Facility Startup/Access entries. 

Data area for PB Histogram. 

PCB INITIALIZATION FOR COLD START. 

Return ptr to a specified user's PCB. ' 

PUDCOM AND PAGE FAULT STACK FOR USER 1. 

Log in a phantom user. 

START UP PHANTOM USER (SVC AND DOSSU3 COMMAND) 

a phantom to log out after an illegal TTY request. 

INTER USER MESSAGE. 

NAME AND/OR MESSAGE FROM USER'S ERRVEC 

SYSTEM STATUS ON USER TERMINAL. 
MODE TRAP HANDLER 
READER DIM 



Force 

PRINT 

PRINT 

PRINT 

RESTRICTED 

PAPER TAPE 



FOR RING 0. 



TO CALLER, 
counts 



process. 



Handle QUIT Process aborts for the current process. 

Reset Ring QUIT Enable Mechanism. 

GET A POINTER TO THE FIRST. FRAME ON THE RING STACK. 

RING FAULT HANDLERS, RING UTILITY SUSRS. 

SPECIAL (QUICK. SMALL STACK FRAME) UII F. I. M. 

CALLS FROM RING TO RING 3 ENVIRONMENT. 

Process the REMLIN command. 

Operator/user communication facility. 

RETURNS CONTENTS OF PER USER MSG BUFFER 

Return real-time as 48 bit value in PIC 

INTERLUDE TO RTNSG1. 

Returns one segment or all segments in a unser's 

Return the name of the System Administrator 

STORE CHAR INTO ARRAY, STEP CHAR PTR 

PRIMOS 4 SCHEDULING ROUTINES 

SEGMENT MODULE 

Seqment 14 module 

SEGMENT 4 MODULE 

SEGMENT 5 — SUPERVISOR DYNAMIC LINK TABLE (GATE SEGMENT) 

SUBROUTINE TO SET SEGMENT ACCESS 

close all semaphores at LOGOUT time. 

close an open semaphore. 

drain a semaphore. 

notify a semaphore. 

open a semaphore associated with filename. 

open and initialize a semaphore. 

report status of semaphores. 

set a timer for a semaphore. 

test value of a semaphore. 

wait on a semaphore and timer. 

to u/ait on a semaphore. 

utility routines. 

add a process to a virtual sem queue. 

remove a random process from a sem VQ. 

remove top process from virtual sem que. 



Nsmeci 
Named 
Named 
Named 
Named 
Named 
Named 

N£fli!?d 

Name a 



Named 
Named 
Nr.rn.3d 
Named 
Name d 



semaphore 
semap hor e 
semaphore 
ssmaph or e 
s emap h ore 
semaphore 
semaphore 
semaphore 
semaphore 
semaphore 
semaphore 
semaphore 
semap h ore 
semap h ore 
semaphore 



LOCK /UNLOCK PROCESS TO MASTER CPU. 

SHUTDN DISK LOCALLY AND REMOTELY. 

INSTALL SHARED LIBRARY (RESTRICTED TO USER <SUSR> ) 



or file 
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SKUTDN. 


FTN 


SIDSGT. 


PLP 


SMS©*. F 


TN 


SORO*. PLP 


SPAWNS. 


PLP 


3RPHAN. 


PLP 


SRWREC. 


FTN 


STKINI. 


FTN 


STNOU. PMA 


SUPSTK. 


PMA 


SVCALS. 


PMA 


T5AMLC. 


PLP 


TSCMPC. 


FTN 


TSGPPI. 


PLP 


TSGS. PMA 


TSLMPC. 


FTN 


TSMG. PMA 


TSPMPC. 


FTN 


TSTM. PMA 


TSVG. FTN 


TAS. FTN 


TDUMPC. 


PMA 


TFLADJ. 


PLP 


TFLIOS. 


FMA 


TI*MSG. 


PLP 


TIMDAT. 


PMA 


TMAIN. PMA 


TP*CON. 


PLP 


TP*DIS. 


PLP 


TP I OS. FTN 


TTY*IN. 


PLP 


TTYSRS. 


FTN 


TTYPER. 


PMA 


TUTILS. 


PMA 


UIDSST. 


. PLP 


UIDSCH. 


, PLP 


ULOKPG. 


FTN 


UNC*GT. 


. PLP 


USER*. 1 


-TN 


USNMTS. 


. PLP 


USRAS* 


. FTN 


UTILS. 1 


PF.A 


UTYPES 


. PLP 


VERDIM 


. FMA 


WAITIN 


. PMA 


-JARMST 


. PMA 


wIRSTK 


. FTN 


WPLS. P 


LP 


URMA3T 


. FTN 



routine. 
TERMINALS 



SHUTDOWN COMMAND PROCESSING FOR PRIMOS IV. 

Qf- 1 Spawner 's Id 

Send 3 message to a user on an arbitrary node. 

INVOKES LIST OF RING ZERO STATIC ON-UNITS 

Spawn a new process(some attributes specified by spawner). 

Apply suffix search conventions for phantom logins 

SVC HANDLER FOR RREC. WREC SVC. 

INITIALIZATION OF RING STACK SEGMENTS. 

SVC-PCL INTERLUDES TO TNOU. TNOUA 

UNWIRED RING STACK FOR USER 1. 

MISCELLANEOUS SUPERVISOR ENTRIES. 

Raw data mover for amlc lines. 

I/O TO CARD READER/PUNCH VIA MPC 

General purpose parallel interface 

DRIVER FOR VECTOR GENERAL GRAPHICS 

LINE PRINTER OUTPUT VIA MPC 

DRIVER FOR SOC-MEGRAPHIC 7000 INTERFACE 

CARD PUNCH I/O VIA MPC , 

PRIMOS DIRECT-CALL HANDLER FOR TAG MONITOR 

VERSATEC -GOULD PLOTTER I/O 

SUBROUTINE TO ATTACH TO A DIRECTORY CHAIN 

Define the symbol TDUMPC and cause seg to allocate space. 

Adjust size of tfliob buffers 

LOGICAL I/O BUFFERING ROUTINES. 

Print connecti cpu» and i/o time utilization. 

DATE AND TIME CONVERSION ROUTINES. 

CLOCK PROCESS. RING UTILITY SUBRS. 

Terminal-Process connect amlc line 

Terminal-Process disconnect for amlc 

PAGE TURNING INTERLUDE TO DISK I/O. 

Check if there are any characters in 

RESET TTY BUFFERS OF USER PROCESS 

TYPERS FOR PRM0S4 

RANDOM SUBROUTINES 

Generate unique id as a bit string. 

Generate a unique identifier as a character 

UNWIRE AN AREA OF THE VIRTUAL MEMORY. 

Get the id's associated with this user. 

Retreive ringO data. 

Uncssign magnetic tape drive units. 

Process the USRASR command. 

UTILITY SUBROUTINES FOR FORTRAN PROGRAMS. 

P : jTic-ion to return type of user (normal, remote, phantom) 

PRIMOS 4 DRIVER FOR SOC INTERFACE 

WAIT WITH PROCESS EXCHANGE INHI3ITTED. 

IS A WARM STARTABLE HALT ROUTINE. 

Procedure to wire the page fault 

Get ;tr to SOU lists. 

H,-.NDL£ WARri START PROCESS ABORT. 



1 ines 



input buffer for user. 



string. 



stack for a process. 
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* 


AC5CAT. PLP 


■a- 


ACSDFT. PLP 


■* 


AC«L5T. PLP 


* 


ACSRVT. PLP 


* 


ACSSET. PLP 


* 


ACC_CHK. PLP 


* 


ACDECODE. PLP 


■s. 


ACENCQDE. PLP 


* 


ACLSEG. PMA 


J4. 


AC CLEAN. PLP 


* 


AC JDELPA. PLP 


* 


ACJMEWPA. PLP 


* 


ADD ENT. PLP 


* 


ADD_REC. PLP 


■s- 


ALC_REC. PLP 


* 


atsTplp 


* 


AT*ABS. PLP 


* 


ATSANY. PLP 


•s- 


ATSHOM. PLP 


<• 


ATSOR. PLP 


* 


ATSREL. PLP 


* 


ATCHSS. PLP 


■S3* 


ATLIST. PLP 


* 


AT_ADREM. PLP 


4. 


AT_CLEAN. PLP 


-%■ 


ATJJNREM. PLP 


•> 


AT~VALPAR. PLP 


> 


2ENSHT. PLP 


> 


CALAC5. PLP 


fr 


CALACS.-PLP 


* 


CATSDL. PLP 




CLOSE. FTN 


•fr 


CNAM*S. PLP 


•* 


COSGET. FTN 




COMISS. FTN 




COMOSS. FTN 


■5. 


COPY_AP. PLP 


-> 


CCPYJJTE. PLP 


'- 


CP.EASS. PLP 


" 


DELJENT. PLP 


f- 


DIRSRD. PLP 


-•- 


EMFTYj:*. PLP 


•'• 


SNTINDIR. PLP 








ERRPR5. FTN 


-r- 


FILSDL. PLP 


•-- 


FIND ENT. PLP 


•:- 


FIND_HGLE. PLP 




-ORCEW. FTN 


-;- 


FREE_REC. PLP 


■-? 


"SAHSH. PLP 




F5HASH. PMA 




FSUHSH. PLP 


•> 


GETDVS. PL? 


-■- 


■JET ID*. PLP 


-.- 


C-ETQB. FTN 



Revert 
Create 
Handle 
Decode 



Place an object into an access category. 
Protect an object with default access rights. 
Return the contents of an ACL in logical format. 

an ACL directory to password protection. 

an ACL. 

access checking for access-setting routines. 

a physical ACL entry into a logical one. 
Encode logical <id>: <access> pair into physical ACL entry. 
ACL system databases. 
Common cleanup for ACL gates. 

Delete a priority ACL for a specified logical device. 
Add a new priority ACL to the specified LDEV. 
Add a new entry to a directory. 
Extend a file. 

Allocate record(s) for new directory entry. 
Attach to the specified pathname. 

Attach to a top-level directory on a specified partition. 
Do an attach scan. 
Set current attach point to be same as home. 



to be 
point. 

list 
just 



same as initial. 



of disks, 
gone remote. 



Set home and/or current attach points 

Attach relative to the current attach 

Writearound for new attach modules. 

Do a local attach scan on a specified 

Set unit table entry for attach point 

Common cleanup for attach modules. 

Invalidate. remote attach point(s). 

Validate key and directory name for AT* routines. 

Handle a unit on a device which has been shut down. 

Calculate accesses available on a named object. 

Calculate accesses. 

Delete an access category. 

CLOSE A FILE BY NAME OR UNIT 

Change the name of a file system object. 

Get ringO data for invoking CLOSE and COMOUTPUT commands. 

COMINP-UT COMMAND AND SVC HANDLING 

SWITCH COMMAND OUTPUT ON/OFF 

Copy one attach point to another < handles hashing and quotas) 

Copy one unit table entry to another. 

Create a directory in the current directory. 

Remove a directory entry. 

Road physical directory entries. 

Make sure the object whose BRA is 

Attach to directory, return entry 

STD. SYSTEM ERROR MESSAGE TABLE. 

FRINT SYSTEM ERROR MESSAGE 

Delete a file or directory. 

Find entry in directory specified 



passed may 
name in it 



be deleted. 



by the unit 



Find first available hole of required size in 

FORCES DISK UPDATE. 

Free a file's records when it is deleted. 



table entry. 
a directory. 



Add unit table entry to file 
Calculate the hash index for 
Remove unit table, entry from 
Return logical device number 
Returns a user's complete ID 



system and/or ACL hash threads. 

the unit table 

FS and/or ACL hash threads. 

given unit number. 

(user id plus group ids). 



: uimct:qn to return pointer to free QUOTA BLOCK. 
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GETREC. FTN 
GETUN. PLP 
GET_LDEV. PLP 
GPASS*. PLP 
GPATH*. PLP 
GPDEVS. PLP 
GSGSRA. FTN 
GTUTEL. FTN 
GUF*RA. PLP 
ISACLS. PLP 
KICKQB. PLP 
LDISK*. PLP 
LDSKU*. PLP 
LISTF. FTN 
LISTFT. FTN 
LOCATE. PMA 
LUDSKS. PLP 
M2SMAS. FTN 
MARKUT. FTN 
MKUTEPTR. PLP 
MOVNAM. PMA 
NAMEQS. FTN 
NEWDAM. FTN 
NEW ACL. PLP 
OPEN_CHK. PLP 
PASDEL. PLP 
PK2LDV. FTN 
PRWFSS. FTN 
GSREAD. PLP 
GSSET. PLP 
QSTRWK. PLP 
QSUPDT. FTN 
R/W_ENT. PLP 
RA2PTH. FTN 
RDENS*. PLP 
RDLIN*. FTN 
RDLNSX. PMA 
RESTS*. FTN 
RTNQB. FTN 
RTNREC. FTN 
RTNUN. PLP 
RTUTBL. FTN 
RVKIDS. PLP 
RULKCK. FTN 
SATRS3. PLP 
SAVES*. FTN 
5EG10. PMA 
SEMSEG. PMA 
SETID3. PLP 
= ET__DTM. PLP 
SET~OR. PLP 
SET_GMOD. PLP 
SGDSDL. PLP 
SGBRSS. FTN 
SPASSS. PLP 
SRCHSS. FTN 
SRCHSR. FTN 
SYSJDPEN. PLP 
TEXTOK. PMA 



TRL'NC? 



TN 



GET A RECORD FROM DISK RAT. 

Allocate a unit table entry from the system-wide pool. 

Convert partition name to logical device number. 

Read passwords on named directory. 

Return a pathname given a unit or attach point. 

Return a physical device number given logical device number 

Return segdir entry number by matching BRA in record LOCATEd fc 

Allocate a unit table. 

Get dir entry from BRA in dir defined by LOCATE buf. 

Indicates whether specified unit is an ACL directory. 

Increment quota block use count for a subtree. 

Return a list of disk names. 

List all users using a given ldev. • 

LIST DIRECTORY DRIVER 

LOAD A BUFFER WITH LISTF TEXT 

PRIMOS FILE SYSTEM' ASSOCIATIVE BUFFERING. 

Return a list of all disks in use by a given user. 

Return Master-to-Slave mapping for remote file unit. 

MARKS UNIT TABLE ENTRIES ON A DISK ERROR. 

Make a pointer to the unit table entry of the given unit. 

Move names between two fields 

COMPARE TWO NAMES FOR EQUIV <RET TRUE IF SAME) 

ADD RECORD TO NEW PARTITION DAM FILE. 

Process addition of a new ACL to a directory. 

Check to see whether or not a file unit is open. ] 

Delete a priority ACL. _i 

Convert disk pack namei node number in to an LDEV 

READ, WRITE, POSITION SAM OR DAM FILES 

Read quota information for current directory. 

Set quota fields on specified directory. 

Count records used in a subtree. 

UPDATES DIRECTORY HEADERS WITH QUOTA DATA 

Read or write the directory entry at the specified position. -. 

Return PATHNAME : <dis k_name>tree_name based on BRA and LDEV. 

Writearound for RDENS* gate. 

READ A LINE FROM A FILE. 

SUBROUTINE TO EXPAND LINE READ FROM FILE. 

RESTORE SAVED MEMORY IMAGE FILE. 

SUBROUTINE TO RETURN QUOTA BLOCK. 

RETURN A RECORD TO DISK RAT. 

Return a unit table entry to the global pool. 

Return a user unit table to the system free pool. 

Revokes indices AGTIDX into AGT far given user. 

CHECK UNIT TABLES FOR CONFLICT WITH SPECIFIED FILE 

Set attributes for specified file. 

Save memory image 

USER COMMON AND FILE UNIT TABLES. 

NAMED SEMAFHORE DATA AREA 

Adds a group into the specified user 

Set date/time modified of file entry 

Set initial attach point /.origin). 

Set modified bit in a quota directory 

Delete a segment directory entry. 

MANIPULATE SEGMENT DIRECTORY (OPEN STATUS DEMANDED): 

Set passwords on current directory. 

Open. close. delete. change access- check existence of files. 

FAM II FS CODE FOR OPEN-CLOSE-DELETE FILE SYSTEM PRIMITIVE 

Open a directory on the system unit or some other' unit. 

TESTS FOR A VALID 6-CHARACTER FILE NAME 

TRUNCATE FILES. 



s Active Group List. 
to current date/time. 

block. 
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7RWRAT. 


FTN 


* 


UKCKGB. 


PLP 


* 


UTALQC. 


FTN 


3r 


UTDALC. 


FTN 


~r 


UTESEG. 


PMA 


& 


VINIT*. 


PLP 


- 


UiTLINS. 


FTN 




WTLNSC. 


PNA 



STARTUP /SHUTDN FILE DEVICE 

Decrement quota block use count for a subtree. 



Initial set up of unit 
Initial set up of unit 
Unit table entries and 
Subroutine to initiate 
WRITE A LINE TO A FILE. 
SUBROUTINE TO COMPRESS 



table and other 
table and other 
common area. 
a VMFA segment. 



units 
units 



for 
for 



user, 
user. 



LINE WRITTEN TO FILE. 
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'*' in column 1 indicates file did not exist at Rev. IS 



5CALLS. FTN 
ABBREV. PLP 
AB_FILE_. PLP 
A3_GET_. PLP 
AB J»CS_. PLP 

* ACSCHG. PLP 

* ACSLIK. PLP 

* ACSPAR. PLP 

* ADD_REMID_. PLP 
ALOC*S. PMA 
APPEND. PMA 
APSFXS. PLP 
AREAJ"1AN. PLP 
ASTRSK*. PLP 

* ATCH_. PLP 
EINSSR. PLP 

* BINARY_. PLP 
CKSFXlTpMA 
CHSQC2. PMA 

* CHANGE_PW. PLP 
CL*GET~PLP 
CLSPAR. PLP 
CLSPIX. PLP 

* CLOSE.. PLP 

* CLRLV_. PLP 

* CNAME_. PLP 
CNINS. PLP 
CNSIG*. PLP 
COMANL. PLP 
COMLV*. PLP 
COMQ*. PLP 
COND_CALLS. PMA 
CP*. PLP 

* CP..ITER. PLP 
CRAWL_. PLP 

* CREATE_. PLP 
CRFIM_. PMA 
DBSMOD. PLP 
33 G_. PLP 

* DCOD_ITR. PLP 
DEF_GV. PLP 

•- DELAY_. PLP 

DELETE_VAR. PLP 

■'- DELSEG_. PLP 
DET*GET. PLP 
DF_UNIT_. PLP 

•> DISLv_. PLP 
DUMP3_. PLP 
-* EDIT_ACC_. PLP 
EDIT_CL. PMA 
ENDPAGE_. PLP 

-•- EGUAL*. PLP 

* EQUAL*?. PLP 
ERR SET. PMA 
EXIT. PLP 

- FATAL . PMA 



Interludes to old_ style calls 

This is the internal command for abbreviations. 

This is the routine to handle file i/o for abbreviations. 

Get next whole token from command line, processing abbrevs. 

This is the routine to expand abbrevs. 

Modifies the contents of an existing ACL 

Set ACL on one file to be like that on another. 

Parse an access control list. 

Process the add_remote_id command. 

ALLOCATE STORAGE ON THE STACK (FREE ONLY BY PRTN). 

APPEND CONCATENTATE TO VARING STRING 

Append suffix to a pathname according to standards 

This is a general PL/ I Area Manager. 

* Command 

Invoke the ATTCH command from ring3. 

Do a binary search using pointers in a single segment. 

BINARY Command. 

CHARACTER TO FIXED BIN(15»0) AND FIXED BIN(31.0) CONVERTERS. 

CHARACTER (OCTAL) TO FIXED BINX31.0) CONVERTER. 

Command to allow a user to change his/her login password. 

Gets A Command Line Into User's Buffer 

Parse string according to basic "command line" rules. 

Parse command line according to a picture specifier. 

Check cmdl syntax and call SRCH** to close file units. 

Clear the existing level. 

Invoke the CNAME command from RINGS. . . via GATE CNAM**. 

Reads A Number Of Characters From Command Input Device 

Set continue_sw on in most recent fault frame. 

Writearound To CLSGET. 

Call a new command level. 

COMOUTPUT Command. 

ADDITIONAL ENTRY POINTS FOR THE CONDITION MECHANISM. 

Invoke the user's currently specified command processor. 

Command language iteration processor. 

Perform crawlout from inner ring, rejoin signl* or fim_. 

Invoke the CREATE command from RING3. . . via GATE CREA**. 

CRAWLOUT FAULT INTERCEPTOR RE-SIGNL* IN THE OUTER RING. 

Set/reset debugger-mode switch and static on-unit. 

Internal command writearound to the DBG external command. 

Decode command language extended feature token type. 

Command to define global variables file to command env. 

Invoke the DELAY command from ring3. 

Delete global variables 

Process the DELSEG command. 

Get msg from a Diagnostic Error Table. 

System Default On-Unit (includes PL/I runtime support)-. 

Display the current contents of a user's level. 

Dump stack in a pretty format. 

Process the edit_access command. 

EDIT COMMAND LINE TO REMOVE EXPLICIT NULL STRINGS. 

PL/I runtime support far ENDPAGE condition 

Generate name from an object (source) name and a pattern. 

Aopend pathname generated from equalname to a given string. 

ERRSET INTERLUDE FOR SEGMENTED MODE 

Exit from Static Mode, and return to Recursive Mode. 

GENERATE FATAL PROCESS ERROR. 
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FILLSA. FTN 
FINDPROC. PMA 

* FIND_UID. PLP 
. * FNCHK*. PLP 

FNDCFS. PLP 

FNONUS. PLP 

GATEQU. PMA 
" * GET_FR. PMA 

GS_FAC. PMA 

GTSPAR. PLP 
-■ GVSGET. PLP 

GVSSET. PLP 

* HASH_UID. PLP 
ICMT3_. PMA 

* IDCHKS. PLP 
i . INFIM_. PMA 

INITS3. PLP 
•-* INITSP. PLP 
INPUTS. PLP 
INTCM_. PLP 
INVKSM_. PLP 
IDA*. PMA 
IOAFMS. FTN 
IOAGAS. PMA 

* IOAGDS. PMA 

* ITR WLDC. PLP 

* ITRJJLDT. PLP 
LIBTBL. PMA 
LISTEN_. PLP 

* LIST_ACC__. PLP 

* LIST^ACL. PLP 

* LIST_GROUP. PLP 

* LIST~PA__. PLP 

* LISTJlUffTA. PLP 

* LIST_REMID_. PLP 
LIST~VAR. PLP 

* LOGIN_. PLP 

* LOGOUT_. PLP 

* LCNS. PLP 
MISSIN. PMA 
MKQNSF. PLP 
MKONUS. PMA 

* MKSQNS. PLP 
-- MQVWDS. PMA 

* NEWLVS. PLP 
GCALLS. FTN 
CNDI3P. PLP 

* GPEN_. PLP 

* GRIGIN_. PLP 
PsEPAGE. PLP 
PHANTOMS. PLP 
PL1SNL. PLP 
PMS. PLP 
PRERRS. PLP 
PREVSB_. PLP 
PRTN_. PMA 

• - * PWCHKS. PLP 

* GSSIZE. PLP 

* G'JTFIM. PMA 
. -•• P.5ALLC. PLP 



FILL ARRAY WITH LITERAL 
FIND NAME AND ADDR FOR DF. 



UNIT PL/ I CONDITION MESSAGES 



Find a <user id> in a validation file. 



system name. 



Check the string passed for validity as a file 

Find most recent condition frame. 

Find onunit in specified stack frame. 

EGU'S INTO SEG5 (GATE SEGMENT) 

Get field address registers and floating point registers. 

GET/SET FP ACCUMULATOR FROM A FAULT FRAME REGISTER BLOCK. 

Parse string according to four types of characters. 

Get the value of a global variable 

Set the value of a global variable 

Hash a <user_id>. 

INTERNAL (OLD AND NEW) COMMAND TABLE. 

Check a (user or project) id for legality. 

CRAWLOUT "FIM" FOR INITS3 (INITIALIZE RING 3 ENVIRONMENT). 

Initialize ring 3 environment 

Invoke initial routine (cominput, CPL> EPF, etc. ) at login 

INPUT Command. 

Fetch local command table entry if any; else check system's 

Invoke (or restore) static mode program image. 

INTERLUDE TO CALL THE IOA* FORMATTER. ( IOAS, IOASRS, IOASER) 

FORMATTING PACKAGE FOR IOAS. 

IOAGAS- GET ARGUMENT ROUTINE FOR IOAFMS 

This module does an unsigned long divide. 

Perform command language Wildcard Iteration. 

Perform command language Treewalk Iteration. 

LIBRARY TABLES. 

Primos command loop standard Listener module. 

Process the list_access command. 

Print the contents of an ACL on the terminal. 

List the user's active and/or inactive groups. 

Process the List_prior ity_access command. 

Process the LIST_QUOTA command. 

List one or all ID's used by this user on remote nodes. 

List global variables and their values. 

Handle LOGIN command from ring 3 (user already logged in). 

Logout command processor. 

Logout Notification Command 

HANDLE MISSING ARGS IN V-MODE. 

FTN interface to make an on-unit in caller's frame. 

MAKE AN ON-UNIT IN THE CALLER'S STACK FRAME. 

Make a static on-unit for either ring. 

DATA MOVEMENT SUBROUTINES. 

Module to create a new level within the command environment 

OLD PRIMOS SUBROUTINE CALLS 

Display onunit data in a specific frame. 

OPEN Command. 

Command to return to initial attach point. 

Write end of page text to a PL/I file(PL/I runtime support). 

PHANTOM Command. 

Nonlocal goto processor. 

Post Mortem command. 

PRERR Command 

Find previous stack framei given 

VARIOUS FLAVOURS OF "RETURN" FOR 

Check a password for legality. 

Return tree used for a directory 

Ring 3 GUIT FIM-Invoke QUIT Condition 

EPF linkage allocation routine 



t£ 



p tr to 
USE BY 



current. 
THE UNWIND 



ROUTINE. 



subtree. 

In Ring 
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~* RSCPF. PLP 

* R*DEL. PLP 

* RSINFO. PLP 
_* RSINIT. PLP 

* R*INVK. PLP 

* RSMAP. PLP 

* R*RELC. PLP 

- * R*RUN. PLP 

R3FALT. PMA 
RAISE_. PLP 
RDTK**. PLP 
RDTK*P. FTN 
RDTKN*. FTN 
RDY_. PLP 

- READY*. PLP 
REENT_. PLP 

* REM PA_. PLP 
_ RESTOj"PLP 

RESU**. PMA 

* RLSLV*. PLP 
RLSTK_. PLP 

~ RMODE_. PLP 
RSTERM. PLP 
RVONU*. PLP 

- * RVSON*. PLP 

SAVE*. PLP 
SETRCS. PLP 
SETREG. PMA 
~~ * SET_ACC_. PLP 

* SET_PA_. PLP 

* SETJ3UOTA. PLP 
-■ SET_VAR. PLP 

SIGNLS. PLP 
SNAP*3. PMA 

* S0R3*. PLP 
"""" * S0UR3_. PLP 

SRSFX3. PLP 
SRVEC_. PLP 

- S3SERR. PLP 
START_. PLP 
STD*CP. PLP 

_ * STKJSX. PLP 

* STR5AL. PLP 

* STRSFR. PLP 
TALCC. PLP 
TEMP* A. FTN 

* TEXTD*. PLP 

* TIME_. PLP 

_ * TNCHKS. PLP 
TSRCS*. FTN 
TYPE. PLP 
UNIJIND_. PLP 
USERSS~PLP 
VLIST. PMA 
WILDS. PLP 
XIS. PMA 



•wee 



Get command processor flags from an epf. 

Delete an epf program. 

return info about a desired epf file. 

EPF linkage initialization routine 

Routine to start the execution of an EPF 

EPF file mapping routine 

ERP: Epf Relative Pointer relocation routine 

Run an EPF Executable Program Format file 

RING 3 FAULT CATCHER. 

Search stack for onunit for condition* and invoke it. 

Uritearound to rdtk*p for use by static mode programs. 

READ NEXT TOKEN FROM COMMAND LINE 

USER CALLABLE ENTRY FOR RDTK** <OLD STYLE) 

Set user's ready message mod - e(s). 

Print "ready" message on terminal. 

Signal the condition REENTER* for subsystem reentry. 

Process the Remove_pr iority_access command. 

Internal command "restore": load memory image of SM pr 

WRITEAROUND FOR RESU** CALL. 

Module to restore a level within the command environme 

Generate the Listener Order "release stack". 

Return into Static Mode program* as defined by an 

Command interface to reset terminal i/o buffer<s). 

Revert an onunit in caller's or given activation. 

Remove static on-unit. 

Save a portion of memory as a file. 

Set Static Mode error code. 

SETREG* GETREG — SET* RETRIEVE REGS IN SVEC 

Process the set_access command. 

Process the Set_pr iori ty_access command. 

Command to change quota or create a quota directory. 

Internal command equivalent of &set_yar CPL directive 

Signal a specific condition. 

FIND RING 3 ENTRY POINT FOR POINTER FAULT HANDLER. 

Invoke ring 3 static on-unit. 

Find static on-unit list for ring 3. 

Perform tree search* with or without suffix standard 

Set Static Mode "rvec" from a fault frame. 

Used by subsystems when they have run into an error. 

Internal command "start": restart recursive or static 

Standard Command Processor. 

Handle auto stack extension. 

Temporary storage allocation routine 

Temporary storage free routine 

Allocate large storage area 

OPEN UNIQUE TEMPORARY FILE ON CURRENT 

Check a character string for validity 

Process the TIME command. 

Checks a character string for being a 

OPENS FILE WITH SPECIFIED TREENAME 

Type text at a user's terminal. 

Prepare the stack for non'local-goto-induc ed 

USERS Command 

VLIST 

Match wildcard name. 

XIS UN IMPLEMENTED INSTRUCTION EMULATOR 



ogram. 
nt 



mode. 



UFD 
as a 



f i lename. 



legal treename. 



unwind ing. 
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AFTER _AF. PLP 
ALLOC _VAR. PLP 
ATTRBIaF. PLP 
BEFCRE_AF. PLP 
CALC. PLP 
CHSHX2. PMA 
CND_INFO_AF. PLP 
COM_ABRV. PLP 
CPL. PLP 
CPL_. PLP 
CPL_E7_. PLP 
CVSDQS. PLP 
CVSD7B. PLP 
CV4FDA. PLP 
DATE_AF. PLP 
DIRSLS. PLP 
DIR_AF. PLP 
EN7RY_AF. PLP 
£VAL_AF. PLP 
EVAL__AN_EXPR. PLP 
EVAlIvBL. PLP 
EXIS7S_AF. PLP 
EX7RSA. PLP 
EX7_VBL_MAN. PLP 
FROMJ5ECIMAL. PLP 
GE7_EXPR. PLP 
QETJLINE. PLP 
GE7_REPLY. PLP 
GE7_70KEN. PLP 
GET_VAR jAF. PLP 
GVPA7H_AF. PLP 
GV_P7R_. PLP 
HEX_AF~PLP 
ICPL_. PLP 
IDjCHECK. PLP 
INDEX_AF. PLP 
LENGTH_AF. PLP 
KGD_AF~PLP 
NULL_AF. PLP 
GC7AL__AF. PLP 
CPENSB. PLP 
CPEN_F ILE_AF. PLP 
= A7HNAME_AF. PLP 
GU£RY_AF~PLP 
GU07E~ PLP 

gu07e_af. plp 
= ead_file_af. plp 
,-.escan_af"plp 
"espcnse_af. plp 
search_af. plp 
se7_a_var. plp 

SIZEsB. PLP 
SU3S7R_AF. PLP 
SU337_AF. PLP 
TEST_EQUALS. PLP 
TO HEX AF. PLP 



'after' active function for CPL. 

Allocate an extension area for variables 

Get certain file attributes (command function). 

'before' active function for CPL. 

CALC. PLP. PRIMOS>CPLS« PRIMOS GROUP, 01/07/82 

CHAR AC7ER (HEX) 70 FIXED QIN(31.0) C0tWER7ER. 

condition_inf o a. f. : retrieve selection cond. info. 

Interlude to invoke command abbreviation processor. 

Interface CPL interpreter to command level. 

Command Procedure Language Interpreter. 

Return pointer to CPL Error 7able pathname. 

Convert FS format date/time to quadseconds since Janl 1901. 

Convert Date from ASCII to Binary (file system) format. 

Standard fs date-time— mod converted to format mm/dd/yy hhmm. t 

Date Command (Function). 

Retrieve info about selected entries in a given directory. 

'dir' active function for CPL. 

'entry' active function for CPL. 

Active function evaluator for CPL 

Evaluate expression containing variables, functions 

Evaluate character string containing local/global variables 

EXIS7S command function for CPL. 

Extract pathname components. 

External Variable Manager for Primos Command Loop. 

Convert a decimal integer to an integer in a given base. 

Accumulate the next expression from the current line. 

Get a new logical line from file on cpl_unit 

Fetch a yes/no/null/next reply from command input stream. 

Get next token from CPL program 

get__var command function for CPL. 

Return pathname of current global variable file. 

Get pointer to global variable area. 

Convert hexadecimal integer to decimal integer 

Invoke CPL interpreter on given file, processing suffix. 

Check a string for valid command var identifier format. 

'index' active function for CPL 

'length' active function for CPL. 

Implement mod function for CPL. 

'null' active function for CPL. 

Convert octal integer to decimal integer 

Open a branch by tree name (nonstandard) 

open_file command function for CPL. 

Pathname command function for CPL. 

Query command function - get yes/no answer. 

Perform a quote operation on a given string. 

Perform quote operation for CPL active function. 

?ead_ file command function for CPL. 

Reccan command function for CPL. 

Response command function - get textual answer. 

'search' active function for CPL 

Set local and. global user variables 

Return the size of a branch in WORDS. 

'substr' active function for CPL 

Substitute command (function). 

7est expression equality for CPL. 

Convert a decimal integer to a hexadecimal integer. 
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TO_QCTAL_AF. PLP Convert a decimal integer to a octal integer. 

TRANSLATE_AF. PLP 'translate' active function for CPL. 

TRI!i_AF. PLP 'trim' active function for CPL. 

UNQUOTE_AF. PLP Perform unquote active function for CPL. 

VBL_ MAN. PLP Variable manager for dynamically allocated string vars. 

VEr7fY_AF. PLP 'verify' active function for CPL 

WILD_AF. PLP "wild" command function! get list of files by wildcard name. 

WRITE_FILE_AF. PLP' 'mr ite_f i 1 e function for CPL. 
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Index of files in PRIMOS:>NS - Primos network code. 

'*■' in column 1 indicates file did not exist at Rev. 18 



ALCHC3. PLP 
ALCMYL. PLP 
ALCNAM. PLP 
ALCRNG. PLP 
ALCSLC. PLP 
COMDEF. PMA 
FAMMSG. FTN 
FAMPRC. FTN 
FCPYRG. PMA 
FNSIDS. PLP 
GETVCIX. PLP 
INIPNC. FTN 
LKFA. PMA 
LKTA. PMA 
NSLOGO. FTN 
N3KBEF. PMA 
N3KINI. FTN 
NCMSUB. FTN 
NETA3T. FTN 
NETCM*. FTN 
NETDMP. PMA 
NETDWN. PLP 
NETEV1. PMA 
NETEV2. FTN 
NETFIG. FTN 
NETMAP. PLP 
NETON. PLP 
*4ETPR.C. PLP 
NETRTN. PLP 
NETSGS. PMA 
NETUTU. PLP 
NNITL. PMA 
NPXPRC. FTN 
NT I NIT. FTN 
NTWMAB. PLP 
QLBFAM. FTN 
OLDLSF. FTN 
PNCDIM. PMA 
PRFTMR. FTN 
FRGALM. PMA 
PR SMLC. FTN 
RSALQC. PLP 
F5CALL. PLF 
FSCKVC. PLP 
F.5RLS. PLP 
P3WKER. PLF 
P.EMCTE. FTN 
PLOGIN. FTN 
P.NGRCV. FTN 
RNGSND. FTN 
SLCNET. PMA 
TRNRCV. PLP 
UPUS1. PLF 
UFUS2. PLP 
UP US 3. PLP 
XsADCL. r TN 



Allocate & initialize (to all zeros) a. host control block 

Allocate St initialize my node's line definition table entry 

Allocate 8<. initialize (to all zeros) a name table entry 

Allocate Sc initialize a ring line definition table entry 

Allocate S< initialize an SMLC line definition table entry 

NETWORK COMMON DEFINITIONS 

INVOKE FAM IN THIS PROCESS 

PRIVILEGED SVC FOR FAM 

ARGUMENT COPYING AND RETURNING FOR FAMMSG 

Search the DIFNS id structure for the id for a given node. 

GETS AN INDEX INTO THE VCDATA FOR THIS USER 

INITIALIZE RING/ COLD START TIMER AND LINE TIMERS 

LOCKFA 

LOCKTA 

TELL NETWORK TO SEND FORCED LOGOUT MESSAGE TO REMOTE USER . 

NETWORK NEW SLOCK AND QUEUE DEFINITIONS 

ROUTINE TO INITIALIZE NETWORK BLOCKS AND QUEUES 

Initiates a HDX Primenet link. 

Main "work" loop for network process 

Handles 'NET' commands for HDX operator interface. 

USED TO TRACE ILLOGICAL SYSTEM FAILURES DURING PRIMOS OPERATION 

Shuts down networks 

FIRST-LEVEL EVENT LOGGER (PCL-ABLE VERSION) 

SECOND-LEVEL EVENT LOGGER 

NETWORK COLD START CONFIGURATION MODULE 

Subroutine to manage segment mapping for networks 

Turn network on 

NETWORK PROCESS RUNNING IN RING 

Subroutine to invalidate network cache on RTNSEG 

COMMON DEFINITION FOR NETWORK MAPPED DATA MOVEMENT SUBROUTINES 

Subroutine to copy from Networks to user space 

ALL THAT'S LEFT HERE IS A HALT (FOR FORTRAN STOPS) 

THE RING CALLS TO SUPPORT NPX (ANALOGOUS TO FAMSVC, FAMPRC) 

Initialize the network 

Warm start code executed by the network process 

CALLED BY RSCALL TO INVOKE FAM 1. 

PROCESS 'LISTF' COMMAND FOR DOSSUB 

HARDWARE INTERFACE FOR PRIMENET NODE CONTROLLER 

TIMER FOR RING NETWORK PROTOCOL 

Indicate protocol required and notify network server process 

LEVEL SMLC PROTOCOL FOR NETWORK, X. 25 

ALLOCATES A VCIX SLOT FOR NODE XRNODE 

USER CALLABLE INTERFACE TO NPX TO MAKE REMOTE PROCEDURE CALLS 

CALLED BY LOGABT TO CHECK NPX VIRTUAL CIRCUIT. 

DECREMENTS A PERNODE ALLOCATION COUNT FOR NPX. 

Return information on location of a file. 

DENY/PERMIT FOR DISKS, CALLED FROM D0SSU3 

CONTROL USER PROCESS ON TERMINAL SIDE OF REMOTE LOGIN 

LEVEL II PROTOCOL RECEIVE LOGIC FOR RING NETWORK 

LEVEL II PROTOCOL XMIT FOR HIGH SPEED RING NETWORK 

SMLC INTERRUPT STATUS HANDLER FOR X. 25 LEVEL 2 

TRANSMIT/RECEIVE MESSAGES TO AND FROM SLAVES IN ONE OPERATION. 

Subroutine to update. user status words 

Subroutine to update user status words 

Subroutine to update user status words 

ROUTINE TO ADD DECLARATION TO DCL LIST 
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_ X5ADR. FTN 
XSAGFI. FTN 
XSCACP. FTN 
XSCLOK. FTN 

~~ X3CLRA. FTN 
XSCOPY. FTN 
X5CREQ. FTN 

- * XSFCTY. PLP 

X$FLDS. FTN 
X3GBCD. FTN 
XSGETU. FTN 
XSGIVU. FTN 
XSGVVC. FTN 
X5HDWN. FTN 

- XSIDNT. FTN 
XSIPKT. FTN 
XSLINK. FTN 
X SLOOP. FTN 
XSMAP. PMA 
XSNORM. FTN 
XSNTFY. FTN 

- XSPRIM. FTN 
XSRLG. FTN 
XSRLT. FTN 

__ X5RSET. FTN 
XSSTAT. FTN 
XSUSRQ. FTN 
XSUTIL. FTN 
XSXGFI.FTN 
X25DEF. PMA 
XLGCS. FTN 



( 



Modules to decode addresses from incoming calls 

ROUTINE TO DECLARE INTEREST IN GFI 

ROUTINE TO ACCEPT A CALL 

BACKGROUND CLOCK FOR LEVEL 3 X. 25 - SHOULD RUN EVERY 10 SECONDS 

ROUTINE THAT CAN BE USED TO CLEAR ALL CONNECTIONS A USER OWNS 

ROUTINE TO COPY PACKET INTO AN UNWIRED BUFFER 

PROCESS AN INCOMING CALL REQUEST 

Facilities parsing for call request/incoming call packets 

XSFLDS - Get all of the fields in a CREG or ACCEPT packet 

X4GBCD - ROUTINE TO COPY BCD DIGIT STRING TO ASCII STRINGS 

ROUTINE TO HANDLE OUTPUT PACKET I ZING 

XSGIVU - ROUTINE TO TRY TO GIVE DATA PACKETS TO USER LEVEL 

PASS CONTROL OF A VIRTUAL CIRCUIT TO ANOTHER USER 

ROUTINE TO SHUTDOWN X. 23 LEVEL 3 FOR A GIVEN HOST 

Routine to build a restart ID packet (rev 17.3+) 

TAKE INCOMING PACKETS FROM LEVEL II PROTOCOLS 

Links network table entries for HDX on-the-fly configuration. 

ROUTINE TO PROCESS PKTS THAT START AND END IN THE SAME MACHINE ~ 

POINTRS TO IMPORTANT NETWORK STRUCTURES. 

DECODE CMND BYTE AND DO ROUTINE WINDOW UPDATES 

WAIT ON AND KICK USER'S NETWAIT SEMAPHORE 

NETWORK PRIMITIVES 

HANDLE USER SIDE OF REMOTE LOGIN 

LOG-THRU MODULES - TERMINAL SIDE OF REMOTE LOGIN 

ALLOW A USER TO CAUSE A RESET ON ON OF HIS VIRTUAL CIRCUITS -r 

ROUTINE TO RETURN STATUS INFORMATION TO USER SPACE 

ROUTINE TO PUT VCB IN A USER'S QUEUE OF VCBS 

ALL OF THE NETWORK SOFTWARE UTILITY ROUTINES 

MOVE GFI'S TO AND FROM PACKETS 

X. 23 NETWORK COMMON DEFINITIONS (UNWIRED) 

XLGC* - GET ALL OF THE FIELDS IN A CONNECT REQUEST PACKET 
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f files in PRIMQS^NPXS - Primos Network Process Extension. 



.n column 1 indicates file did not exist at Rev. 18 



ALLOC. PMA 
CALLIT. PMA 
CIRLCG. PLP 
EXTRAC. PLP 
MOVB. PMA 
NPXDNT. PMA 
RSCVT. PLP 
SLAVE. PLP 
SLAVER. PLP 
3LAVE_CK. PLP 
STOPME. FTN 



ALLOCATES SPACE FOR TEMPS ON THE FLY FOR SLAVES 

THIS SU3R MAKES A DYNT AND CALLS IT<GIVEN PCL+ARGS). 

STUFFS CIRCULAR SUFFER FOR DEBUG OF NPX 

EXTRACTS A SPARE DATA FIELD FROM A REQ OR RESP MESSAGE 

MOVES N BYTES FROM SRC 32 BIT POINTER TO DST POINTER 

NPXDNT - THE DYNT TO GET NPXPRC DEFFINED FOR RSCALL 

CONVERTS A NODE NAME TO A NODE NUMBER 

GIVEN REQUEST MESSAGE, SLAVE CALLS TARGET SUBR. SENDS RESPONSE 

ROOT OF ALL SLAVE INVOKATIONS, ACCEPTS CALL, DEFS. 1ST MESS. 

Called by DF UNIT_ to check usr type,U*NPX goto SLAVEJ3NJJN I T 

PRINTS ERRQR~AND STOPS NPX PHANTOM 
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OSCMTR. PMA 
CRFP. FTN 
CRG. FTN 
DMCDYN. FTN 
FLSHFS. FTN 
GSALQC. PLP 
GSDALC. PLP 
GSUBS. PMA 
GUEDEF. PMA 
SOMAN. FTN 
SLABRT. FTN 
SLBSMR. FTN 
SLCCMP. PMA 
SLCDIM. PMA 
SLCLD3. FTN 
SLCNFG. FTN 
SLCTDP. PMA 
SLERF. FTN 
SLSCH. FTN 
3MLCEX. FTN 
TSSLC 1 . FTN 



PROTOCOL-SENSITIVE DIM CODE FOR THE 'BSCMAN' AND 'XBM' PROCESS. -; 

INTEGER*2 FUNCTION TO CREATE A FREE POOL 

INTEGER*4 FUNCTION TO CREATE A QUEUE 

RESERVES AND FREES DMC CHANNELS DYNAMICALLY FOR THE SLC USERS _, 

SUBROUTINE TO FLUSH FREE STORE 

Perform heap storage allocation for queueing routines 

Perform heap storage deallocation for queueing routines 

QUEUEINO ROUTINES FOR NETWORK AND COMMUNICATION PRODUCTS 

QUEUEING ROUTINES COMMON DEFINITION 

ALLOCATES 1-PAGE WINDOWS IN SEG. FOR COMMUNICATIONS PROCESSES 

ABORTS SMLC ACTIVITY FOR A GIVEN LINE 

INITIALIZES "3SCMR" WORKSPACE BEFORE A RECEIVE. 

UNPACKS SMLC STATUSES TO LINE PAIR BUFFERS HANDLES INT STATUS 

DISTRIBUTES SYNCHRONOUS CONTROLLER STATUS - HAS I/O CALLS 

LOADS DRIVER TABLES FROM A CONTROL BLOCK 

CONFIGURES HSSMLC CONTROLLER AND SINGLE-BOARD SUCCESSORS 

LOCATES TOP OF HSSMLC DRIVER MODULES 

HANDLES SMLC ERROR MESSAGES 

SETS UP DMC CHANNELS FOR A LOGICAL SMLC LINE 

TRANSFERS SMLC STATUS DATA FROM BASE TO USER LEVEL FDR 5300 

CONTROL BLOCK INTERPRETER FOR HSSMLC AND MDLC CONTROLLERS 
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Index of files in PRIMQS>RJES - Primos Remote Job Entry code. 
'*' in column. 1 indicates file did not exist at Rev. IS 



* GETCP. PLP 

* HASP. PLP 

* HASPCK. PLP 
"*- PHDBG. PLP 

* READQT. PLP 

* RJSATT. PLP 
.» RJ*I. PLP 

* RJSMSG. PLP 

* RJSO. PLP 

* RJCDF. PMA 

* R JCMTR. PLP 

* RJCPY. PLP 

* RJDBG. PLP 
-* RJDLIN. PLP 

* RJEVNT. PLP 
•* RJGBDG. PLP 

* RJINI. PLP 

* RJLINE. PLP 

* RJPCDF. PMA 

* RJPHFS. PLP 
"* RJPHLC. PLP 

* RJPHS. PLP 

* RJPLO. PLP 
.* RJPMSG. PLP 

* RJPROC. PLP 

* RJQ. PLP 

* RJRBRG. PLP 

* RJRECV. PLP 

* RJRQST. PLP 

* RJRTRY. PLP 

* RJSLCFG. PLP 

* RJTIM. PLP 

* RJTWKR. PLP 

* RJUNDO. PLP 
•> RJWLO. PLP 

* RJURFS. PLP 

* RJWRLC. PLP 

* RJXMIT. PLP 

* XSO. PLP 

* XSOCK. PLP 

* XBM. PLP 

* X3MCK. PL? 

• <- XBMCCM. PMA 



PH/WRK - returns pointer to area used to pass PH config 

HASP protocol specific RJPROC code 

HASP Protocol Specific Check module 

PH - returns addresses of common area for protocol handler 

routine reads entry off primos queue 

RJI interface routine - allows process to attach for line 

RJI routines return info to user from the protocol handler 

RJPROC message returning routine 

RJI routines will output blocks* control messages* detach line. 

COMMON DECLERATIQNS FOR RJE EMULATORS 

Configure MTR sub-process for protocol handler 

RJI-PH - routine copies xmit blocks into wired xmit buffers 

Debug gate returns pointer to RJI common blocks for worker RJI 

Deconfigure line 

Event handler for the Rjproc system 

RJI-PH routine - get a data block off a device queue 

Cold start code for RJE emulators 

Low level routines for Rjproc 

protocol handler common declerations for rje emulators 

rje emulators - routine manages the dim free store area 

rje emulators - routine assigns a line control block 

Modify protocol handler state in Worker RJI database 

Logout code for protocol handlers 

RJPROC message printing routine 

Main driver for RJE emulator process 

RJI queueing routines using RQCB 

Copy contents of receive b-lock and queue for the worker 

Receive routines for RJPROC 

Worker request processor for RJPROC 

Routines supporting RJPROC retry mechanism 

Configure HSSMLC and MDLC for RJE use 

Timer routines for the Rjproc system 

Send Messages to Ring3 Workers via RJI 

Logout code for RJE emulators. 

Logout code for RJI workers. 

rje emulators - routine manages RJI system free store 

Routines assign and unassign control blocks for line 

Transmit routines for RJPROC 

XSO protocol handler 

XSO Protocol Specific Check module 

XBM line events and timeouts 

Determine type of message from MTR < X3M Link level processing) 

ALLOCATE SPACE FOR XBM CAT QUEUES 



.es in PRIi1QS>ES - Pvimos DPTX cade. 
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_r,dex of files in PRIMQS>ES - Primos DPTX code. 
'*' in column 1 indicates file did not exist at Rev. 13 



ASSIST. PMA 
2D3ATT. FTN 
3DSDET. FTN 
EDS INF. FTN 
3DSINP. FTN 
5DSLST. FTN 
3DSOUT. FTN 
BDSSET. FTN 
EDFLSH. FTN 
3DICHR. FTN 
BDIWRD. FTN 
3DLDSO. FTN 
3DOWRD. FTN 
3DQUIT. FTN 
2DUNDO. FTN 
3DVBIF. FTN 
3LDM3G. FTN 
3NDAID. FTN 
3SCCDF. PMA 
3SCINI. FTN 
BSCMAN. FTN 
BSCMOV. PMA 
BSCSEM. FTN 
ESCSHR. PMA 
ESCSLC. FTN 
CFI. FTN 
CHAP. FTN 
CHKTAT. FTN 
CKHOLD. FTN 
CLNRB. FTN 
COPY. FTN 



DH3270. 



FTN 
PMA 
PMA 
PLP 
FTN 
PMA 
FTN 
FTN 



DHDBSC. 
DPSTAT. 
DPTSQM. 

DPTS3T. 
DPTCDF. 
DFTINI. 
EP7NAM. 
EAU. FTN 
ECHCNL. FTN 
EM2270. FTN 
EMCFGB. FTN 
ERROR. FTN 
r IX ELM. FTN 
FMTSCR. FTN 
"NMCNT. FTN 
C-E T ELM. FTN 
.--OLD. FTN 
LDTMQ1. FTN 
LNKELM. FTN 
LOADG1. FTN 
_a.ADGE. FTN 
^ZSFAL. FTN 
:- = GVLD. FTN 
•-. "3—Fn. FTN 



SUBROUTINES TO MOVE AND CLEAR VIRTUAL BUFFERS FOR DPTX 

BLOCK DEVICE 'ATTACH' SUBROUTINE 

3LOCK DEVICE DETACH SUBROUTINE 

BLOCK DEVICE INFORMATION & STATUS SUBROUTINE 

BLOCK DEVICE INPUT SUBROUTINE 

BLOCK DEVICE INTERFACE DESCRIPTION ROUTINE 

BLOCK DEVICE OUTPUT SUBROUTINE 

BLOCK DEVICE ATTRIBUTE-SETTING SUBROUTINE 

FLUSH BLOCK INPUT/OUTPUT QUEUES FOR A DPTX DEVICE 

INPUT CHARACTER FROM BLOCK DEVICE QUEUE ELEMENT 

INPUT WORDS FROM BLOCK DEVICE QUEUE ELEMENT 

LOAD 3270 SUPPORT OUTPUT INTO A QUEUE ELEMENT 

OUTPUT WORDS TO BLOCK DEVICE QUEUE ELEMENT 

QUIT PROCESSING FOR A DPTX COMMAND DEVICE 

UNDOES ALL DPTX ATTACHMENTS OF A PROCESS 

LOADS VB AND SOME PARAMETERS. AS PART OF BDSINF CALL 

BUILDS CANNED MESSAGES FOR TRAFFFIC MANAGER 

AID BYTE ANALYSIS ROUTINE FOR TRAFFIC MANAGER 

BSCMAN QUEUE I NG AND FREE STORAGE ALLOCATION 

CREATES FREE STORAGE POOLS AND QUEUES FOR BSCMAN AND DPTX 

BSCMAN SENDS AND RECEIVES TEXT IN THE BSC PROTOCOL . . . MORE 

MOVES CHARACTERS IN 64V MODE 

OBTAIN SEMAPHORE FOR BSCMAN TO USE IN NOTIFYING A MATE 



OR ITTS 



J 



BSCMAN VARIABLE INITIALIZED AT COLD-START ONLY 

CONTROLLER FOR BSCMAN 

ANY CHARACTER IN TERMINAL BUFFER 

TO A SPECIFIED PRIORITY LEVEL 

A DEVICE i 

AREA FOR VBE J 



DEFINES STORAGE FOR 
INITIALIZE THE SYNC 
PROGRAM TO CHECK IF 
SETS A USER PROCESS 
CHECK TAT FLAGS FOR 
MANAGES TAT HOLDING 
CLEAN THE RB HEADER 
COPY COMMAND PROCESSING 

DATA HANDLER INTERFACE TO TFLICB BUFFERS FOR DPTX/TSF 
DH3270 SPECIFIC SHORTCALL SCHAR EQUIVALENT 
DEFINE COMMON AREA FOR DPTX STATISTICS MONITORING 
QUEUE MONITOR SUBROUTINE FOR DPTX QUEUES 
RETRIEVE RINGO INFORMATION FOR DPTX MONITOR 
DEFINE COMMON AREAS FOR DPTX TABLES/VARIABLES 
SUBROUTINES TO INITIALIZE OR SHUT DOWN DPTX 
DP TRAM CHANGES THE LOG NAME FOR DPTX PROCESSES 
ERASE ALL UNPROTECTED (EAU) COMMAND PROCESSING 
ECHO A "NEW LINE" TO A 3277 MOD 2 TERMINAL 
MAIN PROGRAM FOR 3270 VIRTUAL BUFFER EMULATION 
CONFIGURE DPTX/DSC SMLC LINE 
SAVE INFO AND STOP ACTION (BSCMAN) 
INSERT APPROPRIATE KEYS IN A QUEUE STRUCTURE 
REFORMAT AND CLEAR (OPTIONAL) 3277 SCREEN 
OUTPUTS ERROR AND STATUS MESSAGES FOR TM3270 
BUILDS EMPTY QUEUE .ELEMENT CHAIN 
FOR USER IN TAT 

BUFFER INTO A PREALLOCATED QUEUE ELEMENT 
A QUEUE STRUCTURE (R00T2) TO QUEUE STRUCTURE 
BUFFER INTO A PREALLOCATED QUEUE ELEMENT 
LOAD A DATA BUFFER INTO A QUEUE ELEMENT 
SEND MESSAGE FAILED STATUS TO USER FOR TM3270 
MESSAGE VALIDATION FUNCTION FOR BSCMAN ROBUSTNESS 
READ BUFFER COMMAND PROCESSING 



SAVE RESULTS 
LOADS A DATA 
LINK D3'S OF 
LOADS A DATA 



(R00T1 ) 



of £iles in PRIMOS>ES - Primos DPTX code. 
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RDMODR. FTN 
RE7CDF. PMA 
RETRY. FTN 
ROBCDF. PMA 
RTNELM. FTN 
SENBDI. FTN 
SEN3SC. FTN 
EENDPH. FTN 
SETNOW. FTN 
SS3270. FTN 
STTSND. FTN 
TABLES. FTN 
TBLINI. FTN 
T«327C. FTN 
TMCFG3. FTN 
TMCLOK. FTN 
TMINIT. FTN 
TMRRE. FTN 
TMSTMP. FTN 
TRCDEF. PMA 
UNLDQE. FTN 
VALBUF. FTN 
VBGBOI. FTN 
VEGEK. FTN 
VBINIT. FTN 
VBTMPL. FTN 
VBUPDA. FTN 
VBVTAC. FTN 
WGRKRY. PMA 
WRITE. FTN 
XLAT3F. PMA 
XLCALL. PMA 



READ MODIFIED COMMAND PROCESSING 

3SCMAN RETRY COMMON STORAGE ALLOCATION 

RETRY SUBROUTINES FOR BSCMAN 

BSCMAN ROBUSTNESS COMMON STORAGE ALLOCATION 

RETURNS ALL OR PART OF A QUEUE ELEMENT 

ENQUEUES A QUEUE ELEMENT FOR BLOCK USER INTERFACE 

ENQUEUES A QUEUE ELEMENT FOR BSCMAN 

ENQUEUE MESSAGE FOR PROTOCOL HANDLER 

SETS TIMER USING VCLQCKU) (BSCMAN) 

ANALYZES SENSE AND STATUS BYTES FOR TRAFFIC MANAGER 

SEND A STATUS MESSAGE TO A BLOCK DEVICE FOR TM3270 

DATA FOR DPTX TABLE TRANSLATIONS 

INITIALLIZES BSCMAN 'S MESSAGE VALIDATION TABLE 

MANAGES SY?*CHRCNCU3 LINE TRAFFIC FOR PRIM05 3270 TERMINALS 

CONFIGURE TM3270'S BSC LINE 

RETURNS THE VALUES OF GCLOK, KUSR AND MPXSEM TO TM3270 

TM3270 INITIALIZATION ROUTINE 

DEVICE RECOVERY ROUTINE FOR TM3270 

PRINTS OUT A TIME STAMP WITHOUT A FOLLOWING CARRAGE RETURN 

TM3270 COMMON AREA (DPTX) 

UNLOADS A QUEUE ELEMENT INTO A DATA BUFFER 

CHECK USER'S OUTPUT BUFFER FOR ILLEGAL CONTROL CHARACTERS. 

GET OUTPUT ELEMENT FROM BDI 

PERFORM 'GETBKC CALLS FOR VBE 

INITIALIZES VIRTUAL BUFFERS FOR DPTX/DSC 

BUILDS A VB UPDATE TEMPLATE FROM USER DATA 

UPDATES VB FROM USER-SUBMITTED TEMPLATE 

TACKS A VB COPY ONTO INPUT DATA 

ALLOCATES WORKR* AND ERRCTL COMMON AREAS t 

WRITE COMMAND GROUP PROCESSING 

ASCII-EBCDIC 3UFFER TRANSLATION ROUTINE FOR DPTX 

CALLS XLATBF WITH BIT OFFSETS 



